Set Sound = CreateObject("WMPlayer.OCX.7") Sound.URL = "C:\windows\media\TPBTLWV.WAV" Sound.Controls.play do while Sound.currentmedia.duration = 0 wscript.sleep 100 loop wscript.sleep (int(Sound.currentmedia.duration)+1)*1000