on run
	activate
	set itemList to choose file with prompt "ムービーを選択してください" default location (path to home folder) with multiple selections allowed without invisibles
	my saveAsQuickTimeMovie(itemList)
end run

on open inputList
	my saveAsQuickTimeMovie(inputList)
end open

on saveAsQuickTimeMovie(movieList)
	activate
	tell application "QuickTime Player"
		launch
		activate
		stop every document
		close every document saving no
		repeat with aMovie in movieList
			open aMovie
			set new_file to (aMovie & ".mov") as string
			save self contained document 1 in new_file -- 独立再生形式で保存
			close document 1 saving no
		end repeat
		quit
	end tell
end saveAsQuickTimeMovie

オリジナルのソースでは独立形式にするか、参照形式にするかを選択しますが、ウチではとりあえず独立形式にしたかったのでダイアログを無くしました。あと、ファイル名を拡張子だけ変更するためにQuickTimeのドキュメント名からファイル名を取得していたのですが、Ricoh GX100のムービーだとドキュメント名が空になってしまい、うまく動作しませんでした。このため、新規ファイル名は強引に元ファイル名に “.mov”を追加するだけにしました。元スクリプトでは “.” ドットを探して拡張子を変えていましたが、このあたりでどうもディレクトリ名に “.”が入ってるとダメなケースがあるようでしたので、その問題も回避できるようになりました。