# Print the stats for 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);

$strServer = 'terminator.movie.edu ';

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

# Use this to restrict the stats returned:
# set objStats = objDNS.ExecQuery("Select * from MicrosoftDNS_Statistic " & _
#                                 where Name like 'Records%' ")

foreach my $objStat (in $objStats) {
    print ' ' . $objStat->Name . ' : ' . $objStat->Value, "\n";
}