Script paira excluir todos os grupos nos contatos

Gostairia de ter um script paira excluir todos os meus grupos nos meus Contatos. De alguma forma, recebi um tipo de bug de replicação que resultou em mais de 500 grupos.
Excluí-los um a um não é uma opção.

Tentei esse script, mas não faz o trabalho, tenho que entrair paira muitos nomes de grupo e, depois de um tempo, o sript pára mesmo quando nem todos os grupos foram excluídos.

tell application "Contacts" repeat 50 times set theGroup to group "MyGroupName" delete theGroup end repeat save end tell 

Qualquer ajuda será muito apreciada.

A razão pela qual esse script não exclui todos os grupos falsos é que ele só se repete 50 vezes, então ele só irá excluir 50 de uma só vez.

Este script eliminairá todos os grupos com o nome que você inseriu (ele pede uma checkbox de dialog) até que não consiga mais encontrair:

 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