# Configure several name server settings

# ---------------------------------------------------------------
# From the book "DNS on Windows Server 2003" 
# By Cricket Liu, Matt Larson & Robbie Allen
# Publisher: O'Reilly and Associates
# ISBN: 0-596-00562-8
# Book web site: http://rallenhome.com/books/dnsonw2k3/toc.html
# ---------------------------------------------------------------

use Win32::OLE;

$strServer = 'terminator.movie.edu';

$objDNS = Win32::OLE->GetObject('winMgmts:\\\\' . $strServer . '\\root\\MicrosoftDNS');
$objDNSServer = $objDNS->Get('MicrosoftDNS_Server.Name="."');

print $objDNSServer->Name . ':', "\n";
# See Table 14-1 for an explanation of each of these settings
$objDNSServer->{EventLogLevel} = 4;
$objDNSServer->{LooseWildcarding} = 1;
$objDNSServer->{MaxCacheTTL} = 900;
$objDNSServer->{MaxNegativeCacheTTL} = 60;
$objDNSServer->{AllowUpdate} = 3;
$objDNSServer->Put();

if ((0 + Win32::OLE::LastError())) {
    print ' Error occurred: ' . ('' . Win32::OLE::LastError()), "\n";
}
else {
    print " Change successful\n";
}