Windows Verknüpfungen

Wie kann ich die Details zu einer Windows Verknüpfung auslesen bzw. anpassen?

... es existieren unter C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\xxxx zahlreiche Verknüpfungen
(zum Beispiel zu den Office-Applikationen) bei denen im Register "Verknüpfung"
der Eintrag im Textfeld "Ziel" nicht editierbar ist (grau hinterlegt).
Anstelle des üblichen Aufrufkommandos steht hier nur z. B. "Microsoft Office Professional Edition 2003".
Bei dieser Verknüpfung kann folglich der Aufruf um keine Option ergänzt werden

Im Folgenden finden Sie eine Anleitung zum Anzeigen bzw. Ändern dieser Verknüpfungen

Anzeigen

Ändern (Editieren)

Legen Sie eine Datei (show_shortcut_details.vbs)
mit folgedem Inhalt im SendTo Ordner an und senden die Verknüpfnung anschliessend an das neu angelegte VB-Script. 

Legen Sie eine Datei (edit_shortcut_details.vbs)
mit folgedem Inhalt im SendTo Ordner an und senden die Verknüpfnung anschliessend an das neu angelegte VB-Script. 

set WshShell = WScript.CreateObject("WScript.Shell")
set objArgs = WScript.Arguments
set oShellLink = WshShell.CreateShortcut(objArgs(0))
WScript.Echo "Ziel: " & oShellLink.TargetPath & vbCrLf _
& "Argumente: " & oShellLink.Arguments & vbCrLf _
& "Ausführen in: " & oShellLink.WorkingDirectory & vbCrLf _
& "Tastenkombination: " & oShellLink.Hotkey & vbCrLf _
& "Fensterstil: " & oShellLink.WindowStyle & vbCrLf _
& "Kommentar: " & oShellLink.Description & vbCrLf _
& "Symbol: " & oShellLink.IconLocation & vbCrLf
oShellLink.Save 

 set WshShell = WScript.CreateObject("WScript.Shell")
set objArgs = WScript.Arguments
set oShellLink = WshShell.CreateShortcut(objArgs(0))
oShellLink.TargetPath = InputBox("Ziel:",, oShellLink.TargetPath)
oShellLink.Arguments = InputBox("Argumente:",, oShellLink.Arguments)
oShellLink.WorkingDirectory = InputBox("Ausführen in:",, oShellLink.WorkingDirectory)
oShellLink.WindowStyle = InputBox("Fensterstil:",, oShellLink.WindowStyle)
oShellLink.Description = InputBox("Kommentar:",, oShellLink.Description)
oShellLink.IconLocation = InputBox("Symbol:",, oShellLink.IconLocation)
oShellLink.Save