title image


Smiley Re: Command-Switch-Eingabefenster öffnen lassen...
Hi,



speichere folgenden Code als parameter.vbs ab:









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





Code eingefügt mit Syntaxhighlighter 4.0







Erstelle eine Verknüpfung auf die parameter.vbs mit folgendem Inhalt:



parameter.vbs ping

geschrieben von

Anhang
Bild 10923 zu Artikel 521016

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: