Listar todos los programas sin ninguna ventana y matarlos

Un problema interesante.
Aquí tienes un fragmento para ayudarte a empezar a enumerar las aplicaciones de Windows:

tell application "System Events"
    set appProcs to every application process whose background only is false
    set appWins to ""
    repeat with eachProc in appProcs
        set appWinNum to title of every window of eachProc
-- Put "quit..." command into "if...then" :
        if (count of appWinNum) is equal to 0 then display ¬
                alert "No window found for app: \r\r" & name of eachProc
        set appWins to appWins & return & name of eachProc & ¬
                ":\n" & appWinNum & return
    end repeat
    display alert appWins
end tell

No me he molestado en establecer saltos de línea para múltiples Windows -- ya que hay un Desventaja TREMENDARIA a este enfoque:

Este script no y no lo hará encontrar Windows en todos y cada uno de los "espacios" establecidos en el Control de la Misión.
Es una pena, pero hasta ahora el Control de la Misión no tiene guión.

Su mejor -si es feo- La solución sería que cada aplicación se pusiera en primer lugar, luego se comprobara, y luego se abandonara...