open-iterm.applescript

tell application "Finder"
	set this_folder to (the target of the front window) as alias
	set thePath to quoted form of POSIX path of this_folder
	set theCmd to "cd " & thePath & ";clear;"
end tell

tell application "iTerm"
	activate
	set aWindow to current window
	
	if aWindow is equal to missing value then
		set aWindow to (create window with default profile)
	else
		tell aWindow
			set t to (create tab with default profile)
		end tell
	end if
	
	tell current session of aWindow
		write text theCmd
	end tell
end tell