tell application "System Events"
set this_info to {}
repeat with theProcess in (application processes where visible is true)
    tell application theProcess
        close
    end tell
   end repeat
end tell