Пакет просто закрывается, когда я хочу записать в VBS скрипт

Question

Я не знаю, почему этот код не создает VBS-файл ... Окно пакетной обработки просто закрывается, когда я его вызываю.

Я искал в Google, как заставить это работать, но я не сделалне нашел что-то, чтобы помочь мне.

(echo Dim oPlayer
echo Set oPlayer = CreateObject("WMPlayer.OCX")
echo oPlayer.URL = sound.mp3
echo oPlayer.controls.play 
echo While oPlayer.playState <> 1 ' 1 = Stopped 
echo WScript.Sleep 100 
echo oPlayer.close ) > testname.vbs
pause

Как заставить это работать?

Answer 1

Я понял это ... Я должен был добавить немного ^ в командах.Я изменил это 2 команды:

echo Set oPlayer = CreateObject("WMPlayer.OCX")
echo While oPlayer.playState <> 1

в

echo Set oPlayer = CreateObject("WMPlayer.OCX"^)
echo While oPlayer.playState ^<^> 1