¿Cómo puedo eliminar el título del trabajo y la compañía de todos los contactos de la libreta de direcciones usando AppleScript?

Prueba algo como:

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