bballard
Joined: 19 Jan 2006
Posts: 35
|
 Posted: Wed Mar 07, 2007 4:46 pm Post subject: Perl Script Help for Citrix ICA Session Latency |
 |
|
I am trying to write a perl script to pull the ICA Session Latency for Citrix. So far this is the script:
| Code: | use strict;
use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
my @computers = ($ARGV[0]);
foreach my $computer (@computers) {
my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_PerfRawData_CitrixICA_ICASession", "WQL",
wbemFlagReturnImmediately | wbemFlagForwardOnly);
foreach my $objItem (in $colItems) {
print "LatencySessionAverage:$objItem->{LatencySessionAverage}";
print "\n";
}
} |
The output looks like this:
| Code: | LatencySessionAverage:42
LatencySessionAverage:78
LatencySessionAverage:49
LatencySessionAverage:69
LatencySessionAverage:86
LatencySessionAverage:229
LatencySessionAverage:175
LatencySessionAverage:56
LatencySessionAverage:37
LatencySessionAverage:7
LatencySessionAverage:1 |
Using perl, how do I get the Mean of all of the averages? Keep in mind, it may return a different amount of session each time. |
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
