c

Set WshShell = WScript.CreateObject("WScript.Shell")
pro ="C:\Documents and Settings\Administrator\桌面\11.bat"
WshShell.Run chr(34) & pro & chr(34),0
为隐藏
set WshShell = WScript.CreateObject("WScript.Shell") '设置CreateObject 方法
strDesktop = WshShell.SpecialFolders("Desktop") '取得“桌面”的路径
set oShellLink = WshShell.CreateShortcut(strDesktop & "\腾讯QQ.lnk") '设置快捷方式
oShellLink.TargetPath = "d:\qq\QQ***清除.vbs" '快捷方式里的“目标”
oShellLink.WindowStyle = 1 '快捷方式里的“运行方式”
oShellLink.Hotkey = "Ctrl+Alt+e" '快捷方式里的“快捷键”
oShellLink.IconLocation = "d:\qq\qq.exe, 0" '快捷方式的图标
oShellLink.Description = "腾讯QQ" '快捷方式里的“备注”
oShellLink.WorkingDirectory = "d:\qq" '快捷方式里的“起始位置”
oShellLink.Save '建立快捷方式