With CreateObject("WMPlayer.OCX") .url = "C:\area\deli\beep.mp3" .controls.play Do WScript.Sleep 100 Loop Until .playState = 1 End With