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, \%attrib
+s)) {
    print "$attribs{USER_FULL_NAME}\n";
}else{
    print "not found\n";
}
[download]