'Set MIDI Volume, Ver 1.01, Rick G.
For Each e In WScript.Arguments
  If IsNumeric(e) Then SetMidi e: WScript.Quit
Next
WScript.Echo "Argument: 0 - 100 required."

Sub SetMidi(volume)
  Set o = CreateObject("WMPlayer.OCX")
  o.settings.volume = volume
  o.settings.balance = 0
  With CreateObject("Scripting.FileSystemObject")
    f = .BuildPath(.GetSpecialFolder(2), "MidiVol.mid")
    .CreateTextFile(f, 1).Write _
      "MThd" & String(3, 0) & Chr(6) & String(5, 0) & "0"
    o.URL = f ' open, wait while Transitioning
    Do: WScript.Sleep 100: Loop While o.playState = 9
    o.close: .DeleteFile f ' settings now pertain to MIDI
  End With
End Sub '<eof>