1. set objWshShell = WScript.CreateObject("WScript.Shell")  
  2. stDesktopFolder = objWshShell.SpecialFolders("Desktop")  
  3. set objFileShortcut = objWshShell.CreateShortcut(stDesktopFolder & "\安装软件.lnk")  
  4. objFileShortcut.TargetPath = "%windir%\system32\ccm\smsrap.cpl" 
  5. objFileShortcut.IconLocation = "%windir%\system32\osuninst.exe,0" 
  6. objFileShortcut.Description = "安装软件" 
  7. objFileShortcut.Save