Set WshShell = CreateObject ( "Wscript.shell")
Wshshell.sendkeys Chr(&H97AD) ' Mute
wshshell.sendkeys Chr(&H97AE) ' Reduce volume
Wshshell.sendkeys chR(&H97AF) ' Increase volume
Set WshShell = CreateObject ( "Wscript.shell")
Wshshell.sendkeys Chr(&H97AD) ' Mute
wshshell.sendkeys Chr(&H97AE) ' Reduce volume
Wshshell.sendkeys chR(&H97AF) ' Increase volume