use Socket;
use Win32::Lanman;
Domains_im_Netz();

foreach $domain (@Domains)
{Win32::Lanman::NetServerEnum( '', $domain, SV_TYPE_ALL, \@W1);
 foreach (@W1)
  {$hostname = ${$_}{'name'};
   my $ip = gethostbyname($hostname);
   if ( defined $ip )
     {print "$domain\t", inet_ntoa($ip), "\t $hostname\n";}
  }
}

sub Domains_im_Netz
{# zeigt die Domainen im Netzwerk an
 use Win32::OLE;
 @Domains = ();
 $dom = Win32::OLE->GetObject("WinNT:");
 foreach $AG (in $dom)
   {if ($AG->{Name} eq 'TRUMPF' )
     {next;}
    push @Domains, $AG->{Name};
   }
}  ## Domains_im_Netz

# end code