使用Applescript退出所有应用程序？

tell application "System Events"
    set appList to name of every UI element of first application process
    repeat with appName in appList
        if appName is not "Finder" then
            tell application appName to quit
        end if
    end repeat
end tell