在启动组建立程式快捷方式

 

Set WshShell = WScript.CreateObject("WScript.Shell")

StrStartup = WshShell.SpecialFolders("AllUsersStartup")

set oShellLink = WshShell.CreateShortcut(StrStartup & "/housekeep.lnk")

oShellLink.TargetPath = "D:/settle/housekeep.exe"

oShellLink.Description = "housekeep"

oShellLink.WorkingDirectory = StrStartup

oShellLink.Save

set oShellLink = nothing

set WshShell = nothing

WScript.quit