-- QuitOthers 1.0
-- The script quits all processes exept Finder and then shuts down the computer.
-- Written by Tuomas Rosberg 3. Feb 1999.
-- This script helped me to avoid shut down freezes in my system 
-- (UMAX Pulsar 200, Mac OS 8.5.1 with MS IE, CD-ROM Toolkit 3.0.2, Twin Turbo™ 4.0.6, Iomega Software 1.0 and Sleeper 3)
-- Note: The freezes are gone after a fresh installation, and deleting the following parts of 
--  software: Twin Turbo™ Upgrade, Twin Turbo™ M8 Upgrade and MS Internet Explorer.

property theOne : "Finder"

on run
   tell application "Finder"
      set AppsList to name of processes
   end tell
   
   repeat with anApp in the AppsList
      if anApp is not theOne then
         try
            tell application anApp to quit
         on error
         end try
      end if
   end repeat
   
   (*tell application "Finder"
      shut down
   end tell*)
end run