use strict;
use Win32::AdminMisc;

my $user = "test_user";
my %hash,@groupList,$group;

Win32::AdminMisc::GetGroups( "DOMAIN", GROUP_TYPE_GLOBAL, \@groupList);

#iterate through groups
foreach $group (@groupList) {

    #set the user's primary group
    Win32::AdminMisc::UserSetMiscAttributes('DOMAIN',$user,USER_PRIMARY_GROUP => $group);

    #get user's attributes
    Win32::AdminMisc::UserGetMiscAttributes('WSOM',$user,\%hash);

    #print out group RID
    print $group. " has RID " . $hash{USER_PRIMARY_GROUP_ID};
}