Here is an AppleScript to eject every removable disk:

tell application "Finder"
  set diskList to every disk whose ejectable = true
  repeat with d in diskList
    eject d
  end repeat
end tell

Posted 7/4/2002 by Sarah Reichelt to the Use-Revolution List   (See the complete post/thread)