my $cgi = CGI->new;
my $nb = Net::NBName->new;

#Remote User's IP Address
my $user_ip = $ENV{'REMOTE_ADDR'};

#Retrieve Net Bios Name Table for that IP
$ns = $nb->node_status($user_ip);

#Split em Up
         if ($ns) {
           for my $rr ($ns->names) {
             if ($rr->suffix == 0 && $rr->G eq "GROUP") {
               $domain = $rr->name;
               }
             if ($rr->suffix == 3 && $rr->G eq "UNIQUE") {
               $user = $rr->name;
               }
             if ($rr->suffix == 0 && $rr->G eq "UNIQUE") {
             $machine = $rr->name unless $rr->name =~ /^IS~/;
               }
          }
          $mac_address = $ns->mac_address;
          }