# SRVCPUMEM.PL - Reports the speed, brand and number of processors
# as well as the amount of RAM for servers in a domain
#
# This script was written by Paul Popour (ppopour@infoave.net) in 08/2000.
# It is released into the public domain. You may use it freely, however,
# if you make any modifications and redistribute, please list your name
# and describe the changes. This script is distributed without any warranty,
# express or implied.
#
# SYNTAX - perl srvcpumem.pl [domainname]
#
# Example
#
# perl srvcpumem.pl (uses the domain you are currently logged into)
# or
# perl srvcpumem.pl DOMAIN1
#
# Primary use for this script is to record the amount of processors
# and RAM memory in your servers. The numbers are close on the
# processor speed and RAM but not deadly acurate.
# This is due to the fact that a 550 MHZ processor might
# report to be a 549 MHZ while a 500 processor reports as 498 etc.,.
# You could build a hash to cross reference the actual numbers but....
#
# This script requires the Win32::TieRegistry available at the following URL
#
# http://www.activestate.com/Packages/:
#
# Thanks to Peter Guzis for coming up with an improved method for reading
# a translated registry key
#
use Win32::TieRegistry( Delimiter=>"/" );
use Win32::NetAdmin;
use POSIX;
$output = "c:\\temp\\srvdata.txt";
if (-e $output){unlink $output;}
if (@ARGV[0] ne ""){$domain = @ARGV[0];} else {$domain = Win32::DomainName;}
unless (Win32::NetAdmin::GetDomainController("", $domain, $pdc)) {die "Unable to PDC for $domain.";}
unless (Win32::NetAdmin::GetServers($pdc, $domain, 0x00000008, \@servers1)) {print "Unable to read NetBios 0008.";}
unless (Win32::NetAdmin::GetServers($pdc, $domain, 0x00000010, \@servers2)) {print "Unable to read NetBios 0010.";}
unless (Win32::NetAdmin::GetServers($pdc, $domain, 0x00008000, \@servers3)) {print "Unable to read NetBios 8000.";}
@servers1 = (@servers1, @servers2, @servers3);
foreach $server (@servers1)
{
my ($key, $realname, $speed, $numproc, $data);
print ".";
if ($key = $Registry->Open("//$server/LMachine/SYSTEM/CurrentControlSet/Control/ComputerName/ComputerName/", {Access=>KEY_READ}))
{
unless ($realname = $key->GetValue("ComputerName"))
{
print "\nCan't attach to read value of ComputerName on $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to read value of ComputerName on $server\n";
close OUTPUT;
next;
}
}
else
{
print "\nCan't attach to registry key 1 of $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to registry key 1 of $server\n";
close OUTPUT;
next;
}
next if ($server ne $realname);
print ".";
if ($key = $Registry->Open("//$server/LMachine/HARDWARE/DESCRIPTION/System/CentralProcessor/0/", {Access=>KEY_READ}))
{
unless ($speed = $key->GetValue("~MHZ"))
{
print "\nCan't attach to read value of ~MHZ on $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to read value of ~MHZ on $server\n";
close OUTPUT;
next;
}
$speed = int (((int(hex ($speed) /5) + 1) * 5));
}
else
{
print "\nCan't attach to registry key 2 of $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to registry key 2 of $server\n";
close OUTPUT;
next;
}
print ".";
if ($key = $Registry->Open("//$server/LMachine/SYSTEM/CurrentControlSet/Control/Session Manager/Environment/", {Access=>KEY_READ}))
{
unless ($numproc = $key->GetValue("NUMBER_OF_PROCESSORS"))
{
print "\nCan't attach to read value of NUMBER_OF_PROCESSORS on $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to read value of NUMBER_OF_PROCESSORS on $server\n";
close OUTPUT;
next;
}
}
else
{
print "\nCan't attach to registry key 3 of $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to registry key 3 of $server\n";
close OUTPUT;
next;
}
print ".";
if ($key = $Registry->Open("//$server/LMachine/HARDWARE/DESCRIPTION/System/CentralProcessor/0/", {Access=>KEY_READ}))
{
unless ($brand = $key->GetValue("VendorIdentifier"))
{
print "\nCan't attach to read value of VendorIdentifier on $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to read value of VendorIdentifier on $server\n";
close OUTPUT;
next;
}
}
else
{
print "\nCan't attach to registry key 4 of $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to registry key 4 of $server\n";
close OUTPUT;
next;
}
print ".";
if ($remoteKey = $Registry->{"//$server/LMachine/HARDWARE/RESOURCEMAP/System Resources/Physical Memory/"})
{
unless ($data = ceil((unpack "L*", $remoteKey->GetValue('.Translated'))[-1] / 1024/ 1024 + 16))
{
print "\nCan't attach to read value of .Translated on $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to read value of .Translated on $server\n";
close OUTPUT;
next;
}
}
else
{
print "\nCan't attach to registry key 5 of $server\n";
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "Can't attach to registry key 5 of $server\n";
close OUTPUT;
next;
}
open(OUTPUT, ">>$output") || die "Can't open $output";
print OUTPUT "$server\t$speed MHZ\t$brand\t$numproc\t$data MB\n";
close OUTPUT;
print "\n\nOutput recorded in $output\n\n";
}
