use strict; use Carp; use CGI qw(:standard); require Win32::NetAdmin; require Win32::AdminMisc; my $domain="MYDOMAIN"; sub GetFullUserName($){ my $user=shift; my %uattribs=(); Win32::AdminMisc::UserGetMiscAttributes($domain,$user,\%uattribs); return $uattribs{"USER_FULL_NAME"}; } sub Translate($){ my $username=shift; my $fullname=GetFullUserName("$username"); print "Userline:$username:$fullname\n"; } print header, start_html; $_=param("users"); s/.//; my @list=split/\./; print "\n"; foreach my $line (@list){ Translate($line); } print end_html;