http://less.carbonfairy.org/post/40528189561

gistfile1.applescript

on run {input, parameters}
	set AppleScript's text item delimiters to "
"
	set input_text to input as text
	
	tell application "Safari"
		set page_url to URL of current tab of window 1
		set page_title to name of current tab of window 1
	end tell
	
	tell application "Evernote"
		if (not (notebook named "Inbox" exists)) then
			make notebook with properties {name:"Inbox"}
		end if
		set text_note to create note title page_title with text input_text notebook "Inbox"
		tell text_note to set source URL to page_url
	end tell
	
	return input
end run