Comment supprimer le titre du poste et la société de tous les contacts du carnet d'adresses à l'aide d'AppleScript ?

Essayez quelque chose comme :

tell application "Address Book"
    set thePeople to every person
    repeat with i from 1 to length of thePeople
        tell item i of thePeople
            set organization to missing value
            set job title to missing value
        end tell
    end repeat
    save
end tell