Come posso rimuovere il titolo del lavoro e la società da tutti i contatti della rubrica utilizzando AppleScript?

Prova qualcosa del tipo:

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