Hallo OnkelBlacky und Willkommen hier auf Perl-Community.de!
Schau dir mal die Funktion GetAnyDomainController() vom Modul Win32::NetAdmin an. Vielleicht hilft dir das. :)
Gruß, Erik!
s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}
It's not a bug, it's a feature! - [CGI-World.de]