gistfile1.txt

tell application "Address Book"
   
   make new group with properties {name:"No Phone Numbers"}
   
   repeat with i from 1 to number of items in people
       
       set thePerson to item i of people
       
       if properties of phones of (thePerson) is {} then
           add thePerson to group "No Phone Numbers"
       end if
       
   end repeat
   save addressbook
end tell