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;