This is why I post :) Why do you square 1024 in the line: $totalMem /=1024*1024;
Tal -----Original Message----- From: Duane Bronson [mailto:[EMAIL PROTECTED] Sent: Wednesday, July 21, 2004 12:20 PM To: Tal Cohen; [EMAIL PROTECTED] Subject: Re: [Boston.pm] Need help working with WMI...update (making headway) 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
