sub get_PDC {
   #Usage: $pdc=get_PDC($domain);
   my $dom=shift or return undef;
   my $server;
   Win32::NetAdmin::GetDomainController("", $dom, $server);
   return $server;
}