'S.Chudley (www.chudley.me) : Set Windows master volume (hAE = DOWN, hAF = UP)
Set WshShell = CreateObject("WScript.Shell")
For i=1 To 100
  WshShell.SendKeys(chr(&hAE))
Next