Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = "C:\Users\Home\Music\g.mp3"
Sound.settings.setMode "loop", True
Sound.Controls.play
While Sound.playState <> 1
wscript.sleep 100
Wend