script pour supprimer tous les groupes dans les contacts

La raison pour laquelle script ne supprime pas tous les faux groupes est qu'il ne se répète que 50 fois, et qu'il n'en supprimera donc que 50 en une seule fois.

Ce script supprime tous les groupes portant le nom que vous avez saisi (il vous le demande dans une boîte de dialogue) jusqu'à ce qu'il n'en trouve plus :

set counter to 0
display dialog "Name of group to delete?" default answer ""
set theGroupName to text returned of result
tell application "Contacts"
    repeat
        try
            set theGroup to group theGroupName
            delete theGroup
            set counter to counter + 1
        on error
            exit repeat
        end try
    end repeat
    save
    display dialog "Removed " & counter & " instances of the group" with icon caution buttons {"OK"} default button "OK"
end tell