Last.fmのLoveトラックへの追加とiTunesのレーティングを同時に行う

ここ(http://www.last.fm/user/wsfulmer/journal/2008/03/29/2z6j_controlling_last.fm_with_applescript)に書かれていたやつを二言三言日本語用に訳しただけで実質何もしてないですが！

スクリプト

tell application "System Events"
	-- プロセスの取得
	set active_proc to name of the first process whose frontmost is true
	-- Last.fmウィンドウを開く
	activate application "Dock"
	tell process "Dock"
		click UI element "Last.fm" of list 1
	end tell
	delay 0.5
	-- Loveトラックに追加してLast.fmウィンドウを閉じる
	tell process "Last.fm"
		click menu item "Love(L)" of menu 1 of menu bar item "ツール(T)" of menu bar 1
		click button 4 of window "Last.fm"
	end tell
	-- iTunesで再生している場合はレートを5にする
	tell application "iTunes"
		set rating of current track to 100
	end tell
	-- 最初に保存したプロセスに戻す
	set frontmost of process active_proc to true
end tell