VBS添加桌面快捷方式

 

  
  
  
  
  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 

 

你可能感兴趣的:(职场,vbs,桌面快捷方式,桌面,休闲)