The vbs code below (I hate vbs, by the way...) continuously sends a command to minimize all windows.
Imagine trying to work with this sucker...
vbs code - 'shrinkin shrimp'
Do
Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application" )
wscript.sleep 100
Shell.MinimizeAll
Loop