Tohle je "proof of concept" - cykluje to všechna aktuální okna 10x (dá se to předělat na "nekonečno"). Pokud bys měl přesný seznam aplikací, tak by to šlo udělat jen na přesný výčet těchto aplikací. Pokud bys chtěl, aby se "neaktivní" okna minimalizovala, odstraň komentáře ( řádky začínající znakem ' ). Pojmenuj jako soubor.vbs a poklikáním spusť.

Set Shell = WScript.CreateObject("Shell.Application")
set WshShell = WScript.CreateObject("WScript.Shell")
' Shell.MinimizeAll
For i = 1 To 10
	WshShell.SendKeys "%{TAB}"
	Wscript.Sleep 3000
	' Shell.MinimizeAll
	' Wscript.Sleep 500
Next