Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "control.exe mmsys.cpl ,1"

Sub soundkill()
    objWshShell.SendKeys "{DOWN}"
    WScript.Sleep 500
    objWshShell.SendKeys "{TAB}"
    WScript.Sleep 500
    objWshShell.SendKeys "{BS}"
    WScript.Sleep 500
    objWshShell.SendKeys "{DOWN}"
    WScript.Sleep 500
    objWshShell.SendKeys "~"
    WScript.Sleep 500
End Sub

Do Until objWshShell.AppActivate("サウンドとオーディオ デバイスのプロパティ") 
    
Loop
objWshShell.SendKeys "{TAB 3}"
WScript.Sleep 500
objWshShell.SendKeys "{DOWN 2}"
WScript.Sleep 500
Call soundkill()
Call soundkill()
Call soundkill()
Call soundkill()
objWshShell.SendKeys "~"
WScript.Quit