Win32_PerfRawData_RoutingAppPerf perl sample code

The foundations for Manageability in Windows is Windows Management Instrumentation (WMI; formerly WBEM) and WMI extensions for Windows Driver Model (WDM).

ActiveXperts Network Monitor provides the ability to build monitor check routines based on WMI. ActiveXperts has collected more than a hundred WMI samples. You can use these samples as a base for new check routines you can write yourself. The Win32_PerfRawData_RoutingAppPerf WMI class can be used in ActiveXperts Network Monitor to monitor your servers.

---

Sample Code

use Win32::OLE('in');

my $computer = ".";

my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_PerfRawData_RoutingAppPerf_LCRoutingApps00UCRoutingApplications", "WQL");

foreach my $objItem (in $colItems) {
	print "Caption: $objItem->{Caption}\n";
	print "Description: $objItem->{Description}\n";
	print "Frequency_Object: $objItem->{Frequency_Object}\n";
	print "Frequency_PerfTime: $objItem->{Frequency_PerfTime}\n";
	print "Frequency_Sys100NS: $objItem->{Frequency_Sys100NS}\n";
	print "Name: $objItem->{Name}\n";
	print "RoutingApps000TranslatedNumbers: $objItem->{RoutingApps000TranslatedNumbers}\n";
	print "RoutingApps001TranslatedNumberspersecond: $objItem->{RoutingApps001TranslatedNumberspersecond}\n";
	print "RoutingApps002Callstovoicemail: $objItem->{RoutingApps002Callstovoicemail}\n";
	print "RoutingApps003Callstovoicemailpersecond: $objItem->{RoutingApps003Callstovoicemailpersecond}\n";
	print "RoutingApps004CallstoSAAA: $objItem->{RoutingApps004CallstoSAAA}\n";
	print "RoutingApps005ErrorsfromUMserver: $objItem->{RoutingApps005ErrorsfromUMserver}\n";
	print "RoutingApps006FailedExchangeUMcalls: $objItem->{RoutingApps006FailedExchangeUMcalls}\n";
	print "RoutingApps007FailedOutboundPSTNcalls: $objItem->{RoutingApps007FailedOutboundPSTNcalls}\n";
	print "RoutingApps008OutboundPSTNcalls: $objItem->{RoutingApps008OutboundPSTNcalls}\n";
	print "RoutingApps009OutboundPSTNcallspersecond: $objItem->{RoutingApps009OutboundPSTNcallspersecond}\n";
	print "RoutingApps010Inboundcalls: $objItem->{RoutingApps010Inboundcalls}\n";
	print "RoutingApps011Inboundcallspersecond: $objItem->{RoutingApps011Inboundcallspersecond}\n";
	print "RoutingApps012InboundContactObjectcalls: $objItem->{RoutingApps012InboundContactObjectcalls}\n";
	print "RoutingApps013SuccessfulInboundcalls: $objItem->{RoutingApps013SuccessfulInboundcalls}\n";
	print "RoutingApps014Forwardedcalls: $objItem->{RoutingApps014Forwardedcalls}\n";
	print "RoutingApps015Simulringcalls: $objItem->{RoutingApps015Simulringcalls}\n";
	print "RoutingApps016Delegatecalls: $objItem->{RoutingApps016Delegatecalls}\n";
	print "RoutingApps017Teamcalls: $objItem->{RoutingApps017Teamcalls}\n";
	print "RoutingApps018Instancesofreceivinginvalidlocationprofile: $objItem->{RoutingApps018Instancesofreceivinginvalidlocationprofile}\n";
	print "RoutingApps019Instanceswherenomatchinnormalizationrulesoflocationprofile: $objItem->{RoutingApps019Instanceswherenomatchinnormalizationrulesoflocationprofile}\n";
	print "RoutingApps020Instanceswherethematchingrulecausedafailedtranslation: $objItem->{RoutingApps020Instanceswherethematchingrulecausedafailedtranslation}\n";
	print "RoutingApps021CallsmadetoVOIPgatewayswhichweresuccessful: $objItem->{RoutingApps021CallsmadetoVOIPgatewayswhichweresuccessful}\n";
	print "RoutingApps022Received5XXfromVOIPgateway: $objItem->{RoutingApps022Received5XXfromVOIPgateway}\n";
	print "RoutingApps023Gatewaydetectedtobeup: $objItem->{RoutingApps023Gatewaydetectedtobeup}\n";
	print "RoutingApps024Gatewaydetectedtobedown: $objItem->{RoutingApps024Gatewaydetectedtobedown}\n";
	print "RoutingApps025Callsfailedduetogatewayunavailability: $objItem->{RoutingApps025Callsfailedduetogatewayunavailability}\n";
	print "RoutingApps026Callsfailedduetonomatchingroute: $objItem->{RoutingApps026Callsfailedduetonomatchingroute}\n";
	print "Timestamp_Object: $objItem->{Timestamp_Object}\n";
	print "Timestamp_PerfTime: $objItem->{Timestamp_PerfTime}\n";
	print "Timestamp_Sys100NS: $objItem->{Timestamp_Sys100NS}\n";
	print "\n";
	print "########\n";
	print "\n";
}