vbsでwavを連続(繰り返し)再生させるには？

質問

vbsでメッセージと共にwavファイルをsndrec32(サウンドレコーダ)で警告音を鳴らしたいのですが、

strSoundFile="C:\WINNT\Media\×××.wav"
Set objShell=CreateObject("Wscript.Shell")
strCommand="sndrec32 /play /close" & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, False
Msgbox "警告"

上記のソースだとwavファイルが一回再生されるだけなのですが、メッセジボックスのOKを答えるまで繰り返し再生させるにはどうしたら良いのでしょうか？

回答No.1

nicotinism

こんな感じでいいのかな。

strSoundFile="C:\Windows\Media\Chimes.wav" '-------------適当に戻して
Set objShell=CreateObject("Wscript.Shell")
strCommand="Mplay32.Exe /play /close " & chr(34) & strSoundFile & chr(34)
wscript.echo strCommand
Do While True
objShell.Run strCommand, 0, true
If objShell.Popup("異常発生",2,"警告") = 1 Then Exit Do '2秒待機、無限ループ脱出
loop