Smart Group that contains Cards with "Company" Marked

I have never been able to make that work. The "Company" in the smart group is the field, not the checkbox, so there doesn't seem to be a way to make that work. Here is an Applescript that will move any contact with Company checked into a particular Group.
You can change the group name by changing the string "Business" to something else.

property groupName : "Business"
tell application "Address Book"
 if (name of groups as list) does not contain groupName then
 make new group at end of groups with properties {name:groupName}
 end if
 repeat with singlePerson in people
 if company of singlePerson is true then
 if (people of group groupName as list) does not contain (singlePerson as list) then
 make new person at end of group groupName with data singlePerson
 end if
 end if
 end repeat
 save addressbook
end tell

It takes while to run if you have a lot of contacts. It can be run multiple times as it checks to see if the person is already in the group.
It is interesting that the Applescript library distinguishes between the "Company" and the "Organization," but the Smart Groups does not. Feedback to Apple might be helpful to get it fixed.

EDIT: Forgot to mention, you copy the code into Script Editor and save as an application. You can then run the program you saved to update your Business group. I threw in the 'save addressbook' command to try and get it to update after it is complete, but I didn't get a chance to check it out. If it doesn't update, close and re-open Address Book (or run the script while AB is closed) and it will be updated.

Message was edited by: Barney-15E