c't 9/04
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
Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-316390
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.
RSS
