VBScript

Nützliche Visual Basic Scripts...

Verknüpfung erstellen (auf dem Desktop)

Details

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