Parameterabfrage bei Verknüpfungen

Bei Windows 98 konnte man an den Pfad einer Verknüpfung ein Fragezeichen anhängen, damit das System einen kleinen Dialog öffnete, um nach Parametern zu fragen. Mit Windows 2000 und XP scheint dies nicht zu funktionieren. Wie bekomme ich bei diesen Systemen trotzdem eine Parameterabfrage hin?

Um dieses Skript nicht immer mit komplettem Pfad aufrufen zu müssen, speichern Sie es zweckmäßigerweise im Windows-Ordner, zum Beispiel unter dem Namen param.vbs. In die Verknüpfung, über die Sie das Programm starten, dessen Parameter Sie interaktiv abfragen wollen, tragen Sie nun statt

C:\Programme\MeinPrg ?

als Ziel so etwas wie

param.vbs C:\Programme\MeinPrg

ein. Dabei können Sie auch feste, vordefinierte Argumente übergeben; das Skript reicht sie an das aufzurufende Programm weiter. (hos)

Über den Script Host lässt sich eine Funktion nachrüsten, die Microsoft beim Sprung von Windows 98 auf 2000 wegrationalisiert hat.

Option Explicit
Dim sh
Dim prg, antwort, arg
Dim i
Set sh = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.Count < 1 Then
  MsgBox "Kein Programm angegeben", 16, "Fehler"
  WScript.Quit
End If
prg = WScript.Arguments(0)
antwort = InputBox("Parameter:", prg)
For i = 1 to WScript.Arguments.Count - 1
  arg = WScript.Arguments(i)
  If InStr(arg, " ") > 0 Then arg = """" & arg & """"
  prg = prg & " " & arg
Next
sh.Run prg & " " & antwort, 1, false


(hos)