AppleScriptを使ってQuickTimeでムービーをフルスクリーンでループ再生する

tell application "QuickTime Player"
	open "/Users/#{ユーザー名}/Desktop/movie.mp4"
	tell front document
		present
		set looping to true
		play
	end tell
end tell

AppleScriptをつかってデスクトップにおいたmovie.mp4をフルスクリーンでループ再生するスクリプトを書いてみました。
いつかどこかで誰かの役に立ってくれると幸いです。