in reply to userinfo on NT
One with Win32::AdminMisc...
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"; }
In Section
Seekers of Perl Wisdom