use Win32::NetAdmin;
Win32::NetAdmin::GetAnyDomainController("","CTSDEV",$dc)
  or  die "Can't find domain controller for CTSDEV: $^E\n";
$PERMISSIONS{"$dc\\Domain Admins"}= "F";