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