VBS Volume Down and Minimize All Boss Alert!

Want to make a short cut that will minimize all open windows and turn the volume off? I created this Windows VBS script with a few other scripts that I found on the net. I am just an amateur programmer.

I put the file on my Desktop as well as the Short Cut. I'm not sure if the short cut keys work on files not on the desk top. Good luck!

set oShell = CreateObject("WScript.Shell")
oShell.run"%SystemRoot%\System32\SndVol.exe "

WScript.Sleep 1000 'Waits For The Program To Open

oShell.SendKeys("{PGDN}") ' Turns Volume down

oShell.SendKeys("{PGDN}") oShell.SendKeys("{PGDN}")

oShell.SendKeys("{PGDN}") oShell.SendKeys("{PGDN}")

oShell.SendKeys"%{F4}" ' Exits the program function

fnShellMinimizeAllVB()

dim objShell

set objShell = CreateObject("shell.application")

objShell.MinimizeAll

set objShell = nothing

end function

fnShellMinimizeAllVB()

PC running windows.