use Win32::AdminMisc;
use strict;
$|=1;
my $domain = "MasterDomain";
my $userid = shift;
my %attribs = ();
chomp $userid;
print "$userid\t\t";
if (Win32::AdminMisc::UserGetMiscAttributes($domain, $userid, \%attribs)) {
	print "$attribs{USER_FULL_NAME}\n";
}else{
	print "not found\n";
}