如何通过VBScript仅静音系统声音

有没有办法通过VBScript实现这一点？ 我试过这个，但它使扬声器静音

CreateObject("WScript.Shell").SendKeys(chr(173))

编辑： 我通过再添加三个

shell.SendKeys“{TAB}”

最终代码为：

set shell = CreateObject("WScript.Shell")
shell.run"Sndvol"
WScript.Sleep 1500
shell.SendKeys"{TAB}"
shell.SendKeys"{TAB}"
shell.SendKeys"{TAB}"
shell.SendKeys"{TAB}"
shell.SendKeys" "
shell.SendKeys"%{F4}"

如果有一个更简单的方法来做这件事，那就太好了

set shell = CreateObject("WScript.Shell")
shell.run"Sndvol"
WScript.Sleep 1500
shell.SendKeys"{TAB}"
shell.SendKeys"{TAB}"
shell.SendKeys"{TAB}"
shell.SendKeys"{TAB}"
shell.SendKeys" "
shell.SendKeys"%{F4}"