I don't think you are doing it right. I have 2 512Meg cards on this laptop (Dell Latitude D800 WindowsXP) (total = 1Gig), and this script tells me I have 512Meg of memory. By coincidence, it works correctly on a Win2003 desktop with 512Meg of memory (maxcap = 2097152, memdev == 4). MaximumCapacity is the largest capacity that computer could have with the current memory array. MemoryDevices is the number of slots available. You are computing the average memory card size which would work show physical memory IF you have only 1 card. Hmm, no - that's not right either because I think the desktop has 2 256Meg cards.
I think you really need something like this: #!/bin/perl -w
use Win32::OLE qw(in with);
my $host = shift @ARGV;
$WMI = Win32::OLE->new('WbemScripting.SWbemLocator') || die "Cannot access
WMI on local machine: ", Win32::OLE->LastError;$Services = $WMI->ConnectServer($host) || die "Cannot access WMI on remote machine: ", Win32::OLE->LastError;
$ComputerSysSet = $Services->InstancesOf("Win32_PhysicalMemory");my $totalMem = 0;
foreach $ComputerSystem (in($ComputerSysSet)) {
$totalMem += $ComputerSystem->{'Capacity'};
}
$totalMem /=1024*1024;
print "There is $totalMem MegaBytes of memory on this system\n";exit 0;
Tal Cohen wrote:
I am making headway with my project (and will be sharing as I move forward). At this time, I have been successful retrieving memory information from a WinXP system. Below is code that will queries and reports how much memory is installed on a system. You need Win32::OLE for this to work. Can someone test this on other Windows system and let me know if it works (or if it dies what the error message if any is). The next step for memory will be to identify how much of the total memory is currently being used.
Thanks,
Tal Cohen
use Win32::OLE qw(in with);
$WMI = Win32::OLE->new('WbemScripting.SWbemLocator') || die "Cannot access
WMI on local machine: ", Win32::OLE->LastError;
$Services = $WMI->ConnectServer($host) || die "Cannot access WMI on remote
machine: ", Win32::OLE->LastError;
$ComputerSysSet = $Services->InstancesOf("Win32_PhysicalMemoryArray");
foreach $ComputerSystem (in($ComputerSysSet)) {
$MaxCap = $ComputerSystem->{'MaxCapacity'};
$MemDev = $ComputerSystem->{'MemoryDevices'};
if ($MaxCap < 1 || $MemDev < 1) {
$myError = Win32::OLE->LastError;
print "An error has occured retreiving memory information:\n";
print " - $myError -\n";
print "The maximum capacity retreived was $MaxCap\n";
print "The number of memory devices detected was $MemDev\n";
print "The total memory capacity of a system is calculated by\n";
print "taking the maximum capacity, and dividing it by the number\n";
print "of memory devices and then dividing that number by 1024 (1K)\n";
} else {
$totalMem = $MaxCap / 1024 / $MemDev;
}
print "There is $totalMem MegaBytes of memory on this system.\n";
}
exit 0;
_______________________________________________ Boston-pm mailing list [EMAIL PROTECTED] http://mail.pm.org/mailman/listinfo/boston-pm
-- , , , | Duane Bronson /|/|/| , | [EMAIL PROTECTED] ( ( ( |/| | http://www.nerdlogic.com/ \ ( | | 453 Washington St. #4A, Boston, MA 02111 | / | (617) 515-2909
_______________________________________________ Boston-pm mailing list [EMAIL PROTECTED] http://mail.pm.org/mailman/listinfo/boston-pm
