Lautstärke auf 100% mit VBscript

[Füzi]

hey leute

ich suche ein script dass die lautstärke auf 100% stellt

ich hab eins geschrieben aber irgendwie funzts nicht

Set wshShell =wscript.CreateObject("Wscript.shell")
ws.run("sndvol32.exe")
ws.sendkeys("{PGUP}")
wscript.sleep 200
ws.sendkeys("{PGUP}")
wscript.sleep 200
ws.sendkeys("{PGUP}")
wscript.sleep 200
ws.sendkeys("{PGUP}")
wscript.sleep 200
ws.sendkeys("{PGUP}")
wscript.sleep 200
ws.sendkeys("%{f4}")
wscript.sleep 200

ich hoffe ihr könnt mir hellfen