# List the resource records on a server

# ---------------------------------------------------------------
# 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 qw(in);

$objDNS = Win32::OLE->GetObject('winMgmts:root\\MicrosoftDNS');
$objRR = $objDNS->ExecQuery('Select * from MicrosoftDNS_ResourceRecord');
foreach my $objInst (in $objRR) {
    print $objInst->TextRepresentation, "\n";
}