Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") '特殊文件夾“桌面”
rem 在桌面創(chuàng)建一個(gè)記事本快捷方式
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Internet Explorer.lnk")
oShellLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"  '目標(biāo)
oShellLink.Arguments = "http://www.bluesunshine.cn/" '程序的參數(shù)
oShellLink.WindowStyle = 1 '參數(shù)1默認(rèn)窗口激活，參數(shù)3最大化激活，參數(shù)7最小化
oShellLink.Hotkey = ""  '快捷鍵
oShellLink.IconLocation = "C:\Program Files\Internet Explorer\iexplore.exe, 0"  '圖標(biāo)
oShellLink.Description = ""  '備注
oShellLink.WorkingDirectory = "C:\Program Files\Internet Explorer\"  '起始位置
oShellLink.Save  '創(chuàng)建保存快捷方式