Do
CreateObject("Wscript.Shell").Run "volume.bat",0,True
WScript.Sleep 500
Loop