Perlers,
I'm struggling; I'm using WMI to monitor a few processes (kinda like my
last disk monitor) but my output repeats the first process in a list for
as many items as I have in the list. See below:
use warnings;
use strict;
use Win32::OLE('in');
my $megaBytes = "1048576";
my $serverObj =
Win32::OLE->GetObject('winmgmts:{impersonationLevel=impersonate}')
or die "Unable to create server object: " . Win32::OLE->LastError()
. "\n";
# list the processes to hunt for
my @findProcesses = (
"putty",
"firefox",
);
foreach my $process (in
$serverObj->InstancesOf("Win32_PerfFormattedData_PerfProc_Process")) {
foreach my $matchProcess ( @findProcesses ) {
if ( $process->{Name} =~ /$matchProcess/oi ) {
print "\n+----------+\nProcess Name: \t\t" . $process->{Name} .
"\n";
print "PID: \t\t\t" . $process->{IDProcess} . "\n";
print "PercentProcessorTime: \t" .
$process->{PercentProcessorTime} . "%\n";
print "PercentUserTime: \t" . $process->{PercentUserTime} . "%\n";
printf "WorkingSet: \t\t%4.2f MB\n", $process->{WorkingSet} /
$megaBytes;
printf "WorkingSetPeak: \t%4.2f MB\n", $process->{WorkingSetPeak}
/ $megaBytes;
printf "VirtualBytes: \t\t%4.2f MB\n", $process->{VirtualBytes} /
$megaBytes;
printf "VirtualBytesPeak: \t%4.2f MB\n",
$process->{VirtualBytesPeak} / $megaBytes;
}
}
}
This yields:
+----------+
Process Name: PUTTY
PID: 3244
PercentProcessorTime: 0%
PercentUserTime: 0%
WorkingSet: 1.24 MB
WorkingSetPeak: 4.00 MB
VirtualBytes: 30.52 MB
VirtualBytesPeak: 32.05 MB
+----------+
Process Name: PUTTY
PID: 3244
PercentProcessorTime: 0%
PercentUserTime: 0%
WorkingSet: 1.24 MB
WorkingSetPeak: 4.00 MB
VirtualBytes: 30.52 MB
VirtualBytesPeak: 32.05 MB
Instead of a line for each process in @findProcesses. I've tried
placing the line "foreach my $matchProcess ( @findProcesses) {" above
the first 'foreach', using a next statement instead of 'if', and placing
the print statements in a subroutine to be called (i.e.
getInfo($matchProcess)), not in any particular order, but the output is
always the same. I've even tried labeling the first block and called
next LABEL to no avail.
What am I missing/doing wrong? I swear I've been through this same
problem before on a previous script but I can't wrap my mind around
it...
ry
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
