Open any link in Safari in Chrome

openInChrome.AppleScript

--
-- open currently active Chrome tab with Safari
-- forked from https://gist.github.com/3151932 and https://gist.github.com/3153606
--
property theURL : ""
tell application "Safari"
  set theURL to URL of front document
end tell
 
if appIsRunning("Google Chrome") then
  tell application "Google Chrome"
		tell front window
			open location theURL
		end tell
		activate
	end tell
else
	tell application "Google Chrome"
		-- Google Chrome not running, so start it
		do shell script "open -a \"Google Chrome\""
		tell front window
			open location theURL
		end tell
		activate
	end tell
end if
 
on appIsRunning(appName)
	tell application "System Events" to (name of processes) contains appName
end appIsRunning