Parameter des VBS scripts werden nicht angenommen

Hallo
Ich habe folgendes problem mit einem vbs script, es lässt sich nicht über eine Batch starten da die parameter nicht angenommen werden.


dim ex
dim datei
dim blatt

' Parameter prüfen
if WScript.Arguments.count > 0 then
datei = WScript.Arguments(0)
else
' bei Fehler, eine Meldung und beenden
msgbox "Es wurde keine Datei angegeben!"
WScript.Quit 1
end if

' Verbindung zu Excel herstellen
Set ex = GetObject ( datei )

' alle einzelnen Arbeitsblätter ausdrucken
for each blatt in ex.WorkSheets
blatt.PrintOut
next

' die Datei schließen
ex.Close

in meiner batch steht folgendes: exprint.vbs mineexcel.xls

Achja das Script dient zum drucken von excel dateien und funktioniert bestens wenn ich die excel datei per drag&drop draufziehe.

MFG&Danke im vorhinein

Benna