- set objWshShell = WScript.CreateObject("WScript.Shell")
- stDesktopFolder = objWshShell.SpecialFolders("Desktop")
- set objFileShortcut = objWshShell.CreateShortcut(stDesktopFolder & "\安装软件.lnk")
- objFileShortcut.TargetPath = "%windir%\system32\ccm\smsrap.cpl"
- objFileShortcut.IconLocation = "%windir%\system32\osuninst.exe,0"
- objFileShortcut.Description = "安装软件"
- objFileShortcut.Save
转载于:https://blog.51cto.com/zhupengyue/572432