use strict 'vars';
use Win32::Lanman;
use Win32::NetAdmin;
my $name = Win32::LoginName();
my $domain = Win32::DomainName();
my $pdc;
my @GlobalGroups;
Win32::NetAdmin::GetDomainController('',$domain,$pdc);
print "Name: $name,\tDomain: $domain,\tPDC: $pdc\n";
if (Win32::Lanman::NetUserGetGroups($pdc,$name,\@GlobalGroups))
{
	print "done\n";
}