| Subject: | Unable to monitior the CPU processor time for a dual processor |
Hi Experts,
I need your help to get my problem solved. I use Win32::perfLib module
to monitor my system resource utilization. It is a dual CPU machine.
Except Processor time, all other values are recorded properly.
The processor time varies somewhere between 0 -180%. I guess it is due
to dual CPU. Is there anything that we can do to make the output
similar to the one in Task manager? I need this script to work for my
performance testing.
I have attached the script details with this mail for reference.Any
help is appreciated.
Perl Version: v5.8.7 built for MSWin32-x86-multi-thread
OS : Windows 2003 EE + VMWare
--
Shiv
| Subject: | CPU.pl |
# ======================================================================
# $Author: Jmk $
# $Date: 19.05.98 7:12 $
# $Archive: /Jmk/scripts/saa/process.pl $
# $Revision: 2 $
# ======================================================================
# shows the task list like the task manager but of any computer
use Win32::PerfLib;
($server) = @ARGV;
#Win32::PerfLib::GetCounterNames($server, \%counter);
#%r_counter = map { $counter{$_} => $_ } keys %counter;
#$process_obj = $r_counter{Process};
#$process_id = $r_counter{'ID Process'};
#$processor_time = $r_counter{'% Processor Time'};
$process_obj = 230;
$process_id = 784;
$processor_time = 6;
$elapsed = 684;
$memory = 180;
$page_faults = 28;
$virtual_memory = 186;
$priority = 682;
$threads = 680;
$perflib = new Win32::PerfLib($server);
$proc_ref0 = {};
$proc_ref1 = {};
$perflib->GetObjectList($process_obj, $proc_ref0);
sleep 5;
$perflib->GetObjectList($process_obj, $proc_ref1);
$perflib->Close();
$instance_ref0 = $proc_ref0->{Objects}->{$process_obj}->{Instances};
$instance_ref1 = $proc_ref1->{Objects}->{$process_obj}->{Instances};
foreach $p (keys %{$instance_ref0})
{
$counter_ref0 = $instance_ref0->{$p}->{Counters};
$counter_ref1 = $instance_ref1->{$p}->{Counters};
foreach $i (keys %{$counter_ref0})
{
next if $instance_ref0->{$p}->{Name} eq "_Total";
if($counter_ref0->{$i}->{CounterNameTitleIndex} == $process_id)
{
$process{$counter_ref0->{$i}->{Counter}} =
$instance_ref0->{$p}->{Name};
$id{$counter_ref0->{$i}->{Counter}} = $p;
}
elsif($counter_ref0->{$i}->{CounterNameTitleIndex} == $processor_time)
{
$Numerator0 = $counter_ref0->{$i}->{Counter};
$Denominator0 = $proc_ref0->{PerfTime100nSec};
$Numerator1 = $counter_ref1->{$i}->{Counter};
$Denominator1 = $proc_ref1->{PerfTime100nSec};
$proc_time{$p} = ($Numerator1 - $Numerator0) / ($Denominator1 - $Denominator0 ) * 100;
$cputime{$p} = int($counter_ref1->{$i}->{Counter} / 10000000);
}
elsif($counter_ref0->{$i}->{CounterNameTitleIndex} == $memory)
{
$memory{$p} = int($counter_ref0->{$i}->{Counter} / 1024);
}
elsif($counter_ref0->{$i}->{CounterNameTitleIndex} == $page_faults)
{
$page_faults{$p} = $counter_ref1->{$i}->{Counter};
}
elsif($counter_ref0->{$i}->{CounterNameTitleIndex} == $virtual_memory)
{
$virtual_memory{$p} = int($counter_ref0->{$i}->{Counter} / 1024);
}
elsif($counter_ref0->{$i}->{CounterNameTitleIndex} == $priority)
{
$priority{$p} = $counter_ref0->{$i}->{Counter};
}
elsif($counter_ref0->{$i}->{CounterNameTitleIndex} == $threads)
{
$threads{$p} = $counter_ref0->{$i}->{Counter};
}
}
}
print " PID Process CPU CPU-Time Memory PF Virt.Mem Priority Thr\n";
# 0 Idle 93.73 20:51:40 16 K 1 0 K Unknown 1
foreach $p (sort { $a <=> $b } keys %process)
{
$id = $id{$p};
$seconds = $cputime{$id};
$hour = int($seconds / 3600);
$seconds -= $hour * 3600;
$minute = int($seconds / 60);
$seconds -= $minute * 60;
if ($priority{$id} > 15)
{
$prio = "Realtime";
}
elsif ($priority{$id} > 10 )
{
$prio = "High";
}
elsif ($priority{$id} > 5 )
{
$prio = "Normal";
}
elsif ($priority{$id} > 0 )
{
$prio = "Low";
}
else
{
$prio = "Unknown";
}
printf("% 4d %-14s%5.2f % 3d:%02d:%02d % 8d K % 8d % 8d K %8s % 3d\n",
$p, $process{$p}, $proc_time{$id}, $hour, $minute, $seconds,
$memory{$id}, $page_faults{$id}, $virtual_memory{$id},
$prio, $threads{$id});
}
# ======================================================================
# $History: process.pl $
#
# ***************** Version 2 *****************
# User: Jmk Date: 19.05.98 Time: 7:12
# Updated in $/Jmk/scripts/saa
# some comments added
# ======================================================================