一个向客户端桌面推送快捷方式的脚本

公司电脑由工作组转向域管理模式，由于员工经常需要一些下载一些常用软件，占用带宽，为了方便大家，在内网里架设了一个ftp服务器，可以匿名访问，给员工只读权限。通过邮件告知了大家，但是还是经常有人问ftp怎么访问。于是写了一个脚本，通过组策略推到每个人的桌面上。

set WshShell    = Wscript.CreateObject("Wscript.Shell")
    strDesktop  = WshShell.SpecialFolders("Desktop")  '在桌面创建快捷方式

set oShellLink  = WshShell.CreateShortcut(strDesktop & "\\常用软件下载.lnk")
                           '创建一个快捷方式对象,其在桌面上显示的名字为"常用软件下载"
oShellLink.TargetPath  = " \\192.168.8.254"
                           '设置快捷方式的执行路径
oShellLink.WindowStyle = 3         '运行方式

oShellLink.Save