A brief google leads to this node, which deals with listing a user's secondary groups, you can adapt the answers from there to suit your needs. The primary group of a user can be retrieved with getpwent. You may also want to use User::pwent and User::grent for a nicer interface to those functions.