The changes have to be saved after implementation...
tell application "Contacts"
set countPeopleBefore to count of people
repeat while (count of people) is greater than 0
set thisPerson to person 1
delete thisPerson
end repeat
set countPeopleAfter to count of people
save (* This line makes the difference *)
end tell
Topic:
App & System Services
SubTopic:
General
Tags: