VBScript-Problem

[Watson007]

vielleicht kann mir hier jemand dabei helfen?! Es geht um folgendes VBScript, das steht bislang da drin:

Option Explicit
dim Args
dim Shell
dim VLCPfad

Set Args = WScript.Arguments
set shell = CreateObject("WScript.Shell")
set VLCPfad = "%ProgramFiles(x86)%\VideoLAN\VLC\vlc.exe"

shell.run "%ProgramFiles(x86)%\VideoLAN\VLC\vlc.exe",3, vbtrue

wenn ich das in der Eingabeaufforderung ausführe kommt allerdings die Fehlermeldung "Laufzeitfehler in Microsoft VBScript: Objekt erforderlich: '[string: "%ProgramFiles(x86)%\"]'

warum?! cd "%ProgramFiles(x86)%" in der Eingabeaufforderung funktioniert doch auch :(

System ist Vista64

[Watson007]

ich habs, statt shell.run muss ich das so machen:

Bei exec kann man nicht angeben, das das Skript warten soll bis das Programm beendet wurde, aber das kann man über die Schleife unten machen :)

Option Explicit
dim Args
dim Shell
dim VLCPfad

Set Args = WScript.Arguments
set shell = CreateObject("WScript.Shell")
Set VLCPfad = shell.Exec("%ProgramFiles(x86)%\VideoLAN\VLC\vlc.exe")

Do While VLCPfad.Status = 0
WScript.Sleep 100
Loop