Delete the Root Hints (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.

use Win32::OLE qw(in);

$strComputer = '.';
$objWMIService = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\MicrosoftDNS');
$colItems = $objWMIService->ExecQuery('Select * From MicrosoftDNS_RootHints');
foreach my $objItem (in $colItems) {
    $objItem->DeleteRootHint();
    print "Root Hints deleted\n";
}

This code has been viewed 686 times.

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