Play a sound file in Windows Media Player

play.vbs

Set objParm = Wscript.Arguments

If objParm.Count < 1 Then
  WScript.Echo "play.vbs [path]"
  WScript.Quit
End If

Set wmp = WScript.CreateObject("WMPlayer.OCX")

Sub waitWMPlayerStop()
  Do
    WScript.sleep(100)
  Loop Until wmp.playState = 1
End Sub

Sub play(path)
  wmp.URL = path
  wmp.Controls.currentPosition = 0

  wmp.Controls.play()
  waitWMPlayerStop
End Sub

wmp.settings.volume = 100
play objParm(0)