AppleScriptとExifToolで選択ファイルのジオタグ削除

Macで写真からジオタグだけを削除するAppleScriptです。
要 ExifTool

tell application "Finder"
set objs to selection
end tell
repeat with obj in objs
set obj to obj as alias
try
do shell script "exiftool -geotag= -overwrite_original " & quoted form of (POSIX path of obj)
end try
end repeat

先に写真を選択してから実行します。