Minimizar todos, pero los activos de la actual aplicación de windows

Aquí es un AppleScript que alcanza los resultados de lo que originalmente explícita y específicamente pidió que, antes de la edición de la pregunta después de que se ha respondido.

tell application "Safari"
    activate
    tell application "System Events"
        keystroke "h" using {command down, option down}
    end tell
    set miniaturized of (windows whose index is not 1) to true
end tell

Nota: El anterior AppleScript me funciona en OS X 10.8.5 y Safari 6.2.8 sin embargo no lo he probado en cualquier otra versión de OS X. Que dijo, creo que va a funcionar bien en otras versiones de OS X.

Actualización a la dirección de la edición de la pregunta original:

He jugado un poco con los diferentes métodos y lo que me encontré fue, dentro de las maneras que he probado, la mayoría de las aplicaciones trabajado, mientras que algunos no. En otras palabras, no he encontrado un método universal que trabajó con todas las aplicaciones que normalmente se ejecuta. Así que, voy a agregar un bloque de código que se puede probar y ver si funciona para usted.

Idealmente simplemente ocultar todas las demás aplicaciones y la minimización de la no-activo de windows de la aplicación actual para tener un aspecto liso en la acción es lo deseado, sin embargo Buscador presentó un desafío. Así, en este ejemplo de código Buscador debe minimizar todo lo que windows primero y traer de vuelta a lo que fue la situada en primer plano mientras otras aplicaciones tienen un buen efecto en cascada para minimizar la no-activo de windows, dejando la parte delantera de windows como es.

tell application "System Events"
    set frontApp to name of first application process whose frontmost is true
    set windowName to name of first window of application process frontApp
end tell

if not frontApp is "Finder" then
    tell application frontApp
        activate
        tell application "System Events"
            keystroke "h" using {command down, option down}
        end tell
        set miniaturized of (windows whose name is not windowName) to true
    end tell
else
    tell application frontApp
        activate
        tell application "System Events"
            keystroke "h" using {command down, option down}
            keystroke "m" using {command down, option down}
            tell process frontApp to click menu item windowName of menu 1 of menu bar item "Window" of menu bar 1
        end tell
    end tell
end if