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