VBS mit Aufrufparametern ausführen

Hallo!

Ich möchte aus meinem PPS/ERP-System einen String an eine VBS-Datei übergeben. Dieser kann einmal ein Verzeichnis sein:
\a_viewdat
oder eine Datei sein:
\a_viewdat\R101
(die Datei wird ohne Dateiendung erfasst, aber auch egal)

Jezt soll das Script folgendes machen:
Sollte es sich um eine Datei handeln, dann öffne einen Viewer und zeige die Datei, sollte es sich um ein Verzeichnis handeln, dann Öffne den Explorer im entsprechenden Verzeichnis (Befehl: „C:\WINDOWS\EXPLORER.EXE /n,/e,\MEINSERVER\Daten\a_viewdat“)

Um das Script dies auswerten zu lassen, müsste ich aber einen Wert übergeben können. Das Script an sich finde ich ja noch easy, aber wie kann ich an ein VBS übergebene Werte ‚empfangen‘?

Gruß

Alex

Option Explicit

Dim sParam

If WScript.Arguments.Count = 0 Then
 sParam = "DefaultValue"
Else
 sParam = WSript.Arguments(0)
End If

Wenn Du mehrere Parameter uebegibst, dann holst Du sie Dir am besten ueber Count und einer for-Loop aus Arguments(i), wobei i die Laufvariable ist.

Das isses! Danke!
Das wars! Vielen Dank Virtuallender!

Gruß

Alex

P.S.: Für alle künftigen Benutzer des Codes:
Es ist ein klitzekleiner Schreibfehler drin, daher hier die korrigierte Version.

Option Explicit

Dim sParam

If WScript.Arguments.Count = 0 Then
 sParam = "DefaultValue"
Else
 sParam = **WScript**.Arguments(0)
End If