1.Set WshShell = CreateObject("WScript.Shell")
2.WshShell.SendKeys(chr(174))
Upprepa den sista raden många gånger. Varje anrop sänker volymen litegrann.

För att höja volymen skickar man:
WshShell.SendKeys(chr(175))

Det går också att switcha on/off med:
WshShell.SendKeys(chr(160))