script para eliminar todos los grupos en los contactos

La razón por la que el script no borra todos los grupos falsos es que sólo se repite 50 veces, por lo que sólo borrará 50 de una vez.

Este script borrará todos los grupos con el nombre que introduzcas (te lo pide con un cuadro de diálogo) hasta que no encuentre más:

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