Set WMP = CreateObject("WMPlayer.OCX")
WMP.settings.autoStart = True
WMP.settings.volume = 70
WMP.URL = "http://nashe1.hostingradio.ru/nashe-128.mp3"

' Ждем пока не начнет играть
Do While WMP.playState <> 3
    WScript.Sleep 100
Loop

WScript.Echo "Playing"

' Держим скрипт активным
Do While True
    WScript.Sleep 1000
    If WMP.playState <> 3 Then
        WScript.Echo "Stopped"
        WScript.Quit
    End If
Loop