Here's something I wrote a while back. It's full of bad coding practices,
but I think it will give you an idea of where you can get some of this
information.
####################################################
## ##
## CONFIG.PL v1.5.031502 ##
## written by Tim Johnson ##
## ##
## Retrieves configuration info ##
## for specified computer(s) ##
## ##
####################################################
use Win32::AdminMisc;
use Win32::TieRegistry(Delimiter=>"/");
use Win32::Lanman;
use Net::Ping;
use Win32::Service;
### MAIN #########################################################
&setPing; #Sets the protocol and timeout for Net::Ping
&getClients; #Gets the list of clients
print "Retrieving Configuration Info for\:\n";
foreach $client(@clients){
if($p->ping($client) == 1){
#Client is on the network
print " \\\\$client\n";
if($reg = $Registry->{"//$client/HKEY_LOCAL_MACHINE/"}){
#Read access to Registry
&getDDInfo; #Hard Drive Info
&getMemoryInfo; #Memory Info
&getSoftInfo; #Installed Software
&getServices; #Service Info
&getIPInfo; #IP Info
&getHWInfo; #Misc. Hardware Info
&printInfo; #Print text file
&cleanup; #undef hashes so they can be
reused
}else{
&printInfo;
}
}else{
print "No Ping on $client!\n";
}
}
### SUBS ##########################################################
sub setPing{
$p = Net::Ping->new('icmp',2);
}
sub getClients{
if(@ARGV[0]){
foreach $argument(@ARGV){
push @clients,$argument;
}
}else{
open(INFILE,"current_clients.txt") || die "No clients
specified!\n";
@clients = <INFILE>;
chomp @clients;
close INFILE;
}
foreach $client(@clients){
$client =~ tr/a-z/A-Z/;
$client =~ s/^\\//g;
}
}
sub getDDInfo{
Win32::Lanman::NetServerDiskEnum("\\\\$client",\@drives);
foreach $drive(@drives){
$drive =~ s/://g;
@drvinfo =
Win32::AdminMisc::GetDriveSpace("\\\\$client\\$drive\$");
$drive = $drive."\:";
${$drive}{'CAPACITY'} =
sprintf("%5.2f",($drvinfo[0]/1073741824))." GB"; #Convert to GigaBytes
${$drive}{'SPACE'} =
sprintf("%5.2f",($drvinfo[1]/1073741824))." GB";
}
for($i = 0;$drives[$i];$i++){
if(${$drives[$i]}{'SPACE'} < 0.01){ #Keep removable media
from showing up
delete $drives[$i];
}
}
}
sub getMemoryInfo{
if($memkey =
$Registry->{"//$client/HKEY_LOCAL_MACHINE/Hardware/ResourceMap/System
Resources/Physical Memory/"}){
$mem = int((unpack 'L*', $memkey->GetValue('.Translated'))[-1]
/1024/1024+16);
}
}
sub getSoftInfo{
$verRoot =
$Registry->{"//$client/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows
NT/CurrentVersion/"};
if($verRoot->{'CurrentVersion'} eq '5.0'){ #OS Version Info
$OS = "Microsoft Windows 2000 ";
}elsif($verRoot->{'CurrentVersion'} eq '4.0'){
$OS = "Microsoft Windows NT 4.0 ";
}elsif($verRoot->{'CurrentVersion'} eq '5.1'){
$OS = "Microsoft Windows XP ";
}else{
$OS = "Unknown Operating System";
}
$servicepack = $verRoot->{'CSDVersion'};
$OSType = $verRoot->{'CurrentType'};
$build = $verRoot->{'CurrentBuildNumber'};
$uninstall =
$Registry->{"//$client/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/Current
Version/Uninstall"};
@softkeys =keys %{$uninstall};
foreach $key(@softkeys){ #Check Uninstall
keys to enumerate installed software
$softInfo{$key} = $uninstall->{$key}->{'DisplayName'};
}
}
sub getServices{
Win32::Service::GetServices($client,\%svcs);
@servlist = keys %svcs;
@servlist = sort @servlist;
foreach $service(@servlist){
$shortname = $svcs{$service};
$services->{$service}->{'NAME'} = $service;
Win32::Service::GetStatus($client,$shortname,\%srvStat);
if($srvStat{'CurrentState'} == 4){
$services->{$service}->{'STATUS'} = "Started";
}
$services->{$service}->{'ACCOUNT'} =
$Registry->{"//$client/LMachine/SYSTEM/CurrentControlSet/Services/$shortname
/ObjectName"};
}
}
sub getIPInfo{
#### WINDOWS 2000 ####
if($Registry->{"//$client/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows
NT/CurrentVersion/CurrentVersion"} eq "5.0"){
$adapterRoot =
$Registry->{"//$client/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows
NT/CurrentVersion/NetworkCards/"};
$ipRoot =
$Registry->{"//$client/HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/
Tcpip/Parameters/Interfaces/"};
@adapterKeys = keys %{$adapterRoot};
foreach $key(@adapterKeys){
$name = $adapterRoot->{$key}->{'ServiceName'};
$service = $adapterRoot->{$key}->{'ServiceName'};
$nics->{$name}{'Description'} =
$adapterRoot->{$key}->{'Description'};
$nics->{$name}{'ServiceName'} =
$adapterRoot->{$key}->{'ServiceName'};
$nics->{$name}{'Domain'} =
$ipRoot->{"$servicename/Domain"};
$nics->{$name}{'DNS'} =
$ipRoot->{"$servicename/NameServer"};
if($ipRoot->{"$service/EnableDHCP"} eq
"0x00000000"){
$nics->{$name}{'IPAddress'} =
$ipRoot->{"$service/IPAddress"};
$nics->{$name}{'Subnet'} =
$ipRoot->{"$service/SubnetMask"};
$nics->{$name}{'DHCPEnabled'} = "No";
$nics->{$name}{'Gateway'} =
$ipRoot->{"$service/DefaultGateway"};
}elsif($ipRoot->{"$service/EnableDHCP"} eq
"0x00000001"){
$nics->{$name}{'DHCPServer'} =
$ipRoot->{"$service/DhcpServer"};
$nics->{$name}{'Subnet'} =
$ipRoot->{"$service/DhcpSubnetMask"};
$nics->{$name}{'IPAddress'} =
$ipRoot->{"$service/DhcpIPAddress"};
$nics->{$name}{'DHCPEnabled'} = "Yes";
$nics->{$name}{'Gateway'} =
$ipRoot->{"$service/DhcpDefaultGateway"};
}
}
#### WINDOWS NT ####
}elsif($Registry->{"//$client/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows
NT/CurrentVersion/CurrentVersion"} eq "4.0"){
$adapterRoot =
$Registry->{"//$client/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows
NT/CurrentVersion/NetworkCards/"};
foreach $key(keys %{$adapterRoot}){
$name = $adapterRoot->{$key}->{'ServiceName'};
$service = $adapterRoot->{$key}->{'ServiceName'};
$nics->{$name}{'Description'} =
$adapterRoot->{$key}->{'Description'};
$nics->{$name}{'ServiceName'} =
$adapterRoot->{$key}->{'ServiceName'};
$ipRoot =
$Registry->{"//$client/HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/
$service/Parameters/Tcpip/"};
if($ipRoot->{"EnableDHCP"} eq "0x00000000"){
$nics->{$name}{'IPAddress'} =
$ipRoot->{"IPAddress"};
$nics->{$name}{'Subnet'} =
$ipRoot->{"SubnetMask"};
$nics->{$name}{'DHCPEnabled'} = "No";
$nics->{$name}{'Gateway'} =
$ipRoot->{"DefaultGateway"};
}elsif($ipRoot->{"EnableDHCP"} eq "0x00000001"){
$nics->{$name}{'DHCPServer'} =
$ipRoot->{"DhcpServer"};
$nics->{$name}{'Subnet'} =
$ipRoot->{"DhcpSubnetMask"};
$nics->{$name}{'IPAddress'} =
$ipRoot->{"DhcpIPAddress"};
$nics->{$name}{'DHCPEnabled'} = "Yes";
$nics->{$name}{'Gateway'} =
$ipRoot->{"DhcpDefaultGateway"};
}else{
print " DHCP status unknown on
$name!\n";
}
}
}
}
sub getHWInfo{
$HWRoot =
$Registry->{"//$client/HKEY_LOCAL_MACHINE/HARDWARE/DESCRIPTION/"};
for($i = 0;$HWRoot->{'System/CentralProcessor/'.$i."/"};$i++){
#Processor Info
$HWInfo{'PROCESSOR_'.($i + 1).'_SPEED'} =
$HWRoot->{'System/CentralProcessor/'.$i.'/'}->{'~MHZ'};
$HWInfo{'PROCESSOR_'.($i + 1).'_VENDOR'} =
$HWRoot->{'System/CentralProcessor/'.$i.'/'}->{'VendorIdentifier'};
$HWInfo{'PROCESSOR_'.($i + 1).'_TYPE'} =
$HWRoot->{'System/CentralProcessor/'.$i.'/'}->{'Identifier'};
}
$HWInfo{'BIOS_DATE'} = $HWRoot->{'System/'}->{'SystemBiosDate'};
#BIOS Info -- note that the date may appear incorrectly as XX/XX/20.
$HWInfo{'BIOS_VER'} =
$HWRoot->{'System/'}->{'SystemBiosVersion'};#This is the way it shows up in
the Registry...can you say Y2K Compliancy?
}
sub printInfo{
open(OUTFILE,">$client.conf.txt");
print OUTFILE "\n";
print OUTFILE "CONFIGURATION INFO FOR $client\:
".localtime(time)."\n";
print OUTFILE
"##############################################################\n\n\n";
print OUTFILE "OPERATING SYSTEM\n";
print OUTFILE
"==============================================================\n\n";
print OUTFILE " OS -> $OS\n";
print OUTFILE " Type -> $OSType\n";
print OUTFILE " Build -> $build\n";
print OUTFILE " Service Pack -> $servicepack\n\n";
print OUTFILE "PROCESSOR CONFIGURATION\:\n";
print OUTFILE
"==============================================================\n\n";
for($i = 1;$HWInfo{'PROCESSOR_'.$i.'_SPEED'};$i++){
print OUTFILE "Processor $i\:\n";
print OUTFILE "--------------\n";
print OUTFILE " Speed ->
\~".hex($HWInfo{'PROCESSOR_'.$i.'_SPEED'})."MHZ\n";
print OUTFILE " ID ->
".$HWInfo{'PROCESSOR_'.$i.'_VENDOR'}."
".$HWInfo{'PROCESSOR_'.$i.'_TYPE'}."\n";
}
print OUTFILE "\n";
print OUTFILE "BIOS INFO\:\n";
print OUTFILE
"==============================================================\n\n";
print OUTFILE " Date -> ".$HWInfo{'BIOS_DATE'}."\n";
print OUTFILE " Version -> ".$HWInfo{'BIOS_VER'}."\n";
print OUTFILE "\n";
print OUTFILE "MEMORY CONFIGURATION\:\n";
print OUTFILE
"==============================================================\n\n";
print OUTFILE " Physical Memory-> $mem MB\n";
print OUTFILE "\n";
print OUTFILE "DRIVE CONFIGURATION\:\n";
print OUTFILE
"==============================================================\n\n";
print OUTFILE "DRIVE LETTER SIZE
FREE\n";
print OUTFILE
"--------------------------------------------------------------\n";
foreach $drive(@drives){
unless(${$drive}{'SPACE'} < 0.01){
print OUTFILE "$drive ";
for($i = 0;$i < (42 -
length(${$drive}{'CAPACITY'}));$i++){ #Make sure there are the right number
of dots
print OUTFILE ".";
}
print OUTFILE ${$drive}{'CAPACITY'};
for($i = 0;$i < (17 -
length(${$drive}{'SPACE'}));$i++){
print OUTFILE ".";
}
print OUTFILE"${$drive}{'SPACE'}\n";
}
}
print OUTFILE "\n";
print OUTFILE "INSTALLED SOFTWARE\:\n";
print OUTFILE
"==============================================================\n\n";
foreach $soft(sort values %softInfo){
unless(!$soft){
print OUTFILE " $soft\n";
}
}
print OUTFILE "\n\n";
print OUTFILE "SERVICES\:\n";
print OUTFILE
"==============================================================\n\n";
foreach $service(@servlist){
print OUTFILE "$services->{$service}->{'NAME'}";
for($i = 0;$i < (62 -
length($services->{$service}->{'STATUS'}) -
length($services->{$service}->{'NAME'}));$i++){
print OUTFILE ".";
}
print OUTFILE "$services->{$service}->{'STATUS'}\n";
if($services->{$service}->{'ACCOUNT'} ne 'LocalSystem'){
print OUTFILE " Running As:
$services->{$service}->{'ACCOUNT'}\n";
}
}
print OUTFILE "\n\n";
print OUTFILE "IP CONFIGURATION\:\n";
print OUTFILE
"==============================================================\n\n";
foreach $nic(keys %{$nics}){
print OUTFILE "$nics->{$nic}->{'Description'}\n";
print OUTFILE
"--------------------------------------------------------------\n\n";
print OUTFILE " DHCP Enabled ->
".$nics->{$nic}->{'DHCPEnabled'}."\n";
print OUTFILE " IP Address ->
".$nics->{$nic}->{'IPAddress'}."\n";
print OUTFILE " Subnet Mask ->
".$nics->{$nic}->{'Subnet'}."\n";
print OUTFILE " Gateway ->
".$nics->{$nic}->{'Gateway'}."\n";
print OUTFILE " Service ->
".$nics->{$nic}->{'ServiceName'}."\n\n";
}
print OUTFILE
"##############################################################\n";
}
sub cleanup{ #If you don't remove these values, there will be garbage in
the next machine's data.
undef $OS;
undef $build;
undef $servicepack;
undef %HWInfo;
undef %softInfo;
undef %{$nics};
undef $services;
undef $verRoot;
undef %svcs;
undef %srvStat;
undef $adapterRoot;
undef $ipRoot;
close OUTFILE;
}
-----Original Message-----
From: Vinod Panikar [mailto:[EMAIL PROTECTED]]
Sent: Friday, March 29, 2002 9:26 AM
To: [EMAIL PROTECTED]
Subject: How do I get processor and memory information?
Hi there,
How do i retrieve processor,memory,ipaddress etc of a machine?
AdminMisc module doesn't work for remote machine works only locally.
Any info about any other module availability would be helpful.
Thanks!
Vinod
--
_______________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup
Win the Ultimate Hawaiian Experience from Travelocity.
http://ad.doubleclick.net/clk;4018363;6991039;n?http://svc.travelocity.com/p
romos/winhawaii/
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--------------------------------------------------------------------------------
This email may contain confidential and privileged
material for the sole use of the intended recipient.
If you are not the intended recipient, please contact
the sender and delete all copies.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
