AppleScript that opens a new iTerm2 at a file or directory selected location in Finder

Open iTerm2 at Finder Location.app

on run {input, parameters}
	tell application "Finder"
		set dir_path to quoted form of (POSIX path of (folder of the front window as alias))
	end tell
	CD_to(dir_path)
end run

on CD_to(theDir)
	tell application "iTerm"
		set _term to create window with default profile
		tell _term
			set _session to current session
			tell _session
				write text "cd " & theDir & ";clear;"
			end tell
		end tell
	end tell
end CD_to