my $DsGetDcName = Win32::API->new('Netapi32', 'DsGetDcName', 'PPSPNS', 'N')
  or die Win32::FormatMessage(Win32::GetLastError);