精彩网络 LookData

typeperf “\\RemoteMachine\processor(_Total)\% Processor Time” Perl Win32::PerfMon use Win32::PerfMon; my $server = $ARGV[0] || “VIRTUAL”; my $PerfObj = Win32::PerfMon->new(“\\\\$server”); my $Objects = $PerfObj->ListObjects(); foreach $Object (@$Objects) { if($Object=~/\bPaging File\b|\bThread\b|\bProcess\b/){ # I prefer to skip counters related to the following objects # Paging File # Thread # Process print “$Object\n”; } else { # The following is [...]