Convert zone to AD-integrated (Perl)

This code can be found in Chapter 12 of Windows Server 2003 Security Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Perl code from this site.

# ------ SCRIPT CONFIGURATION ------

use Win32::OLE;

$strZone = '<ZoneName>';
$strServer = '<ServerName>';
# ------ END CONFIGURATION ---------

$objDNS = Win32::OLE->GetObject('winMgmts:\\\\' . $strServer . '\\root\\MicrosoftDNS');
$objDNSServer = $objDNS->Get('MicrosoftDNS_Server.Name="."');
$objDNSZone = $objDNS->Get('MicrosoftDNS_Zone.ContainerName="' . $strZone . '",DnsServerName="' . $objDNSServer->Name . '",Name="' . $strZone . '"');
$strNull = $objDNSZone->ChangeZoneType(0, 1);
$objDNSZone->PutWScript->Echo('Converted ' . $strZone . ' to AD-Integrated');

This code has been viewed 609 times.

New from the creators of TechTasks.com: StatSheet.com