vbscript创建网站桌面快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")'特殊文件夹“桌面”
'在桌面创建一个网站的快捷方式
set oShellLink = WshShell.CreateShortcut(strDesktop & "\编程设计网.lnk")'创建快捷方式文件，名称在这里修改
oShellLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe" '目标，用IE打开
oShellLink.Arguments = "http://www.xxxx.net" '程序的参数，网站的url地址
oShellLink.WindowStyle = 1 '参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "" '快捷键
oShellLink.IconLocation = "C:\Program Files\Internet Explorer\iexplore.exe, 0" '快捷方式图标
oShellLink.Description = "编程设计网快捷方式" '备注
oShellLink.WorkingDirectory = "C:\Program Files\Internet Explorer\" '起始位置
oShellLink.Save  '创建保存快捷方式