为域用户自动创建快捷方式的脚本

自动建立快捷方式的脚本

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\文件服务器.lnk")
oUrlLink.TargetPath = "\\srv01"
oUrlLink.Save
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\srvsus.lnk")
oUrlLink.TargetPath = "\\srv02"
oUrlLink.Save

把以上代码保存为 *.vbs文件，并在域控制上的组策略 用户配置——》脚本（凳录） 添加这个文件就可以了；
有加入域的每台客户端就会自动服务器的建立快捷了；同理，把 *.lnk 改成 *.url ，"\\srv01"改为 ""
就可以做成网站的快捷方式；就不用担心下面的同事一时半会找不到服务器了.