Windows-Verknüpfung

Zielsetzung

Mit einem Aufruf (z.B. in einer Installations-Routine) soll eine Windows-Verknüpfung ("Shortcut") angelegt werden.

Realisierung

Dieses VBScript erzeugt einen Shortcut auf dem Desktop und setzt dessen Attribute:

Set WshShell = CreateObject("WScript.Shell")
Set Verk = WshShell.CreateShortcut(WshShell.SpecialFolders("Desktop")&"\Skripte.lnk")
Verk.TargetPath="http://www.chfp.de/skripte/"
'Verk.Arguments=""
'Verk.WorkingDirectory=""
Verk.IconLocation="%SystemRoot%\system32\SHELL32.dll,21"
Verk.Hotkey = "CTRL+SHIFT+S"
Verk.Save

Um dabei einen Unterordner (z.B. im Startmenü) zu erstellen kann ein FileSystemObject verwendet werden:

set objFSO=CreateObject("Scripting.FileSystemObject")
sm=WshShell.SpecialFolders("Programs")
if not objFSO.FolderExists(sm&"\Skripte") then objFSO.CreateFolder(sm&"\Skripte")

Beispiel

Das Setup von G3B erzeugt auf diesem Weg eine Verknüpfung.