不新建OU，将WEB快捷方式发布到部分人的电脑上

 我前几天遇到这样一个需求，有一个WEB应用程序，只想让其出现在一部分人的电脑桌面上，而且这些现在分布在各个OU中，不适宜再建新的OU。我想来想去，想出一个办法，新建一个安全组"leader"，将这些人放到这个组里面，再在域策略中写启动脚本如下：

Set objADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSysInfo.Username)
 
strGroups = Join(objUser.GetEx("memberOf"))
 
If InStr(1, strGroups, "leader", VbTextCompare) > 0 Then

set oUrlLink = WshShell.CreateShortcut(desktop & "/管理信息门户.url")
oUrlLink.TargetPath = "http://****.****.com"
oUrlLink.Save

FAVORITES=wshshell.specialfolders("FAVORITES")
set oUrlLink1 = WshShell.CreateShortcut(FAVORITES & "/管理信息门户.url")
oUrlLink1.TargetPath = "http://****.****.com"
oUrlLink1.Save

end if

 

这样就解决了上述需求。