Set Shell = WScript.CreateObject("Shell.Application")
Shell.MinimizeAll