Music_Victory_Gym.vbs

Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = "Music_Victory_Vs_Gym_Leader_rdblu.mp3"
Sound.Controls.play
do while Sound.currentmedia.duration = 0
wscript.sleep 100
loop
wscript.sleep (int(Sound.currentmedia.duration)+1)*1000