Hiermit wird eine Verknüpfung auf dem Desktop von "AllUsers" (AllUsersDesktop) erstellt. Von den sog. "SpecialFolders" gibt es in VBS noch sehr viel mehr, einfach mal danach suchen!
Const strProgramtitel = "Name der Verknüpfung"
Const strProgram = "%ProgramFiles%\Ordner\Programm.exe"
Const strWPath = "%ProgramFiles%\Ordner" 'Arbeitsverzeichnis
Const strArg = "/start=save " 'Hier können optional noch Parameter mitgegeben werden
Dim objShortcut
Dim objShell
Set objShell = WScript.CreateObject("Wscript.Shell")
strLPfad = objShell.SpecialFolders("AllUsersDesktop")
Set objShortcut = objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath = strProgram
objShortcut.Description = strProgramtitel
objShortcut.Arguments = strArg
objShortcut.WorkingDirectory = strWPath
objShortcut.Save