Set oShell = CreateObject ("Wscript.Shell") 
Dim strArgs
strArgs = "cmd /c start ms-settings:apps-volume"
oShell.Run strArgs, 0, false