I call the program "Finder CleanDesk." I call the AppleScript via Butler (Command-space then 'fc'). It will then send files on your desktop to the trash, and eject non-local disk images. It will not send your hard drive, iDisk, etc. to the trash -- which is a good thing. You can modify the script to only remove files or only eject non-local disk images. Note that you will want to replace Macintosh HD with the name of your hard drive, and replace username with your short username.
tell application "Finder"
move every item of alias "Macintosh HD:Users:username:Desktop:" to trash
eject (every disk whose ejectable is true or not local volume is true)
end tell
[robg adds: Enter the script in Script Editor and save it somewhere you can easily find it. Butler, or one of many other tools, can be used to assign it to a global hotkey. You could also put it in your Scripts menu to make it just a bit harder to run, so as to cut down on accidental uses...]

