set wshell = CreateObject("Wscript.shell")
wshell.run "C:\Windows\System32\SndVol.exe"
If wshell.AppActivate("SndVol.exe") = FALSE then
Wscript.Sleep 1000
else
wshell.sendkeys "{TAB}"
WScript.Sleep 500
wshell.sendkeys "{TAB}"
WScript.Sleep 500
wshell.sendkeys "{PGUP}"
End if

funktioniert eigentlich alles, keine Fehlermeldung und so aber irgendwie werden die sendkeys befehle nicht wirklich umgesetzt...
Weiss jemand ne lösung?