Desktopverknüpfung mittels VBS-Script erstellen

Oftmals steht man im Unternehmen vor der Frage, wie am einfachsten eine Verknüpfung auf dem Desktop erstellt wird. Dafür empfiehlt es sich den Gruppenrichtlinien zu bedienen und die Verknüpfung mittels VBS-Script zu erstellen. Folgendes Script erstellt eine solche Verknüpfung:

Const strProgramtitel="Name der Verknuepfung"
Const strProgram ="c:\pfad\zurdatei"
Dim objShortcut
Dim objShell
Set objShell= WScript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
strLPfad=objShell.SpecialFolders("AllUsersDesktop")
Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath= strProgram
objShortcut.Description= "Programmbeschreibung
objShortcut.IconLocation = "\\pfadzumicon.ico"
objShortcut.WorkingDirectory = "\\pfadwoprogramm\ausgefuehrtwerden\soll"
objShortcut.Save

Einfach als *.vbs Datei speichern und über eine Richtline an die Clients verteilen.
Im Script oben wird die Verknüpfung bei sämtlichen Benutzern (AllUserDesktop) angelegt. Dieser Pfad kann auch in „Desktop“, „AllUsersStartup, usw. abgeändert werden.