on open files_ set str_domain to "NSGlobalDomain" set str_key to "AppleLanguages" set str_toEN to "(en, ja, fr, de, es, it, nl, sv, nb, da, fi, pt, zh-Hans, zh-Hant, ko)" set str_toJA to "(ja, en, fr, de, es, it, nl, sv, nb, da, fi, pt, zh-Hans, zh-Hant, ko)" repeat with theFile in files_ tell application "Finder" set fileType to file type of theFile set theFilePath to POSIX path of theFile if (fileType is not "APPL") then display dialog "This is not an application." buttons {"Quit"} default button 1 return end if do shell script "defaults write " & str_domain & " " & str_key & " " & quoted form of str_toEN open theFile delay 4 do shell script "defaults write " & str_domain & " " & str_key & " " & quoted form of str_toJA end tell end repeat end open