FWSUpdates for WPKG on iPasserelle
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

8 lines
449 B

Set objShell = CreateObject("WScript.Shell")
strStartMenu = objShell.SpecialFolders("AllUsersStartMenu")
Set objLink = objShell.CreateShortcut(strStartMenu & "\FWS Updates.lnk")
objLink.IconLocation = objShell.ExpandEnvironmentStrings("%SystemDrive%") & "\FWSUpdates\assets\img\fws.ico"
objLink.TargetPath = objShell.ExpandEnvironmentStrings("%SystemDrive%") & "\FWSUpdates\bin\chkupd_launcher.bat"
objLink.WindowStyle = 3
objLink.Save
WScript.Quit