> -----Original Message-----
> From: David Samuelsson (PAC) [mailto:[EMAIL PROTECTED]]
> Subject: get full name of $user in NT?
>
>
> Is there anyway off getting the full name from an remote
> user? that is, i know the persons log on sign, say "ROMI"
>
> full name is "Robert Mitchum" accordin to NT. Is there any
> Perl code , that you know off? i have checked the
> Win32::AdminMisc functions, and that seems to return, nothing
> or numbers =/ when i have tried it.
> //Dave
I don't know if there's a better/faster/easier way to do this, but this is
one way to accomplish what you want:
use warnings;
use strict;
use Win32::NetAdmin qw(GetUsers GetDomainController);
my %UserHash;
my $Domain = "yourdomain";
my $UserID = "ROMI";
GetDomainController("","$Domain", my $Server);
GetUsers($Server, 0, \%UserHash) or die "GetUsers() failed: $^E";
foreach my $key(keys %UserHash) {
if (lc($key) eq lc($UserID)) {
print "$key is: $UserHash{$key}\n";
}
}
__END__
Should return:
ROMI is: Robert Mitchum
Hope this helps...
Jason
CONFIDENTIALITY NOTICE:
************************************************************************
The information contained in this ELECTRONIC MAIL transmission
is confidential. It may also be privileged work product or proprietary
information. This information is intended for the exclusive use of the
addressee(s). If you are not the intended recipient, you are hereby
notified that any use, disclosure, dissemination, distribution [other
than to the addressee(s)], copying or taking of any action because
of this information is strictly prohibited.
************************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
