LCSIP03Requests - WMI sample in Perl

The foundations for Manageability in Windows 2019/2012/2008/ and Windows 10/8/7/Vista/XP are 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.

On this site, you can find many WMI samples.

The LCSIP03Requests WMI class can be used in ActiveXperts Network Monitor to monitor your servers.

---

LCSIP03Requests

Example(s)

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_PerfFormattedData_WSIPPerf_LCSIP03Requests", "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 "SIP000IncomingACKRequests: $objItem->{SIP000IncomingACKRequests}\n";
	print "SIP001IncomingACKRequestsPersec: $objItem->{SIP001IncomingACKRequestsPersec}\n";
	print "SIP002IncomingBYERequests: $objItem->{SIP002IncomingBYERequests}\n";
	print "SIP003IncomingBYERequestsPersec: $objItem->{SIP003IncomingBYERequestsPersec}\n";
	print "SIP004IncomingCANCELRequests: $objItem->{SIP004IncomingCANCELRequests}\n";
	print "SIP005IncomingCANCELRequestsPersec: $objItem->{SIP005IncomingCANCELRequestsPersec}\n";
	print "SIP006IncomingINFORequests: $objItem->{SIP006IncomingINFORequests}\n";
	print "SIP007IncomingINFORequestsPersec: $objItem->{SIP007IncomingINFORequestsPersec}\n";
	print "SIP008IncomingINVITERequests: $objItem->{SIP008IncomingINVITERequests}\n";
	print "SIP009IncomingINVITERequestsPersec: $objItem->{SIP009IncomingINVITERequestsPersec}\n";
	print "SIP010IncomingMESSAGERequests: $objItem->{SIP010IncomingMESSAGERequests}\n";
	print "SIP011IncomingMESSAGERequestsPersec: $objItem->{SIP011IncomingMESSAGERequestsPersec}\n";
	print "SIP012IncomingNEGOTIATERequests: $objItem->{SIP012IncomingNEGOTIATERequests}\n";
	print "SIP013IncomingNEGOTIATERequestsPersec: $objItem->{SIP013IncomingNEGOTIATERequestsPersec}\n";
	print "SIP014IncomingNOTIFYRequests: $objItem->{SIP014IncomingNOTIFYRequests}\n";
	print "SIP015IncomingNOTIFYRequestsPersec: $objItem->{SIP015IncomingNOTIFYRequestsPersec}\n";
	print "SIP016IncomingOPTIONRequests: $objItem->{SIP016IncomingOPTIONRequests}\n";
	print "SIP017IncomingOPTIONRequestsPersec: $objItem->{SIP017IncomingOPTIONRequestsPersec}\n";
	print "SIP018IncomingREFERRequests: $objItem->{SIP018IncomingREFERRequests}\n";
	print "SIP019IncomingREFERRequestsPersec: $objItem->{SIP019IncomingREFERRequestsPersec}\n";
	print "SIP020IncomingREGISTERRequests: $objItem->{SIP020IncomingREGISTERRequests}\n";
	print "SIP021IncomingREGISTERRequestsPersec: $objItem->{SIP021IncomingREGISTERRequestsPersec}\n";
	print "SIP022IncomingSERVICERequests: $objItem->{SIP022IncomingSERVICERequests}\n";
	print "SIP023IncomingSERVICERequestsPersec: $objItem->{SIP023IncomingSERVICERequestsPersec}\n";
	print "SIP024IncomingSUBSCRIBERequests: $objItem->{SIP024IncomingSUBSCRIBERequests}\n";
	print "SIP025IncomingSUBSCRIBERequestsPersec: $objItem->{SIP025IncomingSUBSCRIBERequestsPersec}\n";
	print "SIP026IncomingBENOTIFYRequests: $objItem->{SIP026IncomingBENOTIFYRequests}\n";
	print "SIP027IncomingBENOTIFYRequestsPersec: $objItem->{SIP027IncomingBENOTIFYRequestsPersec}\n";
	print "SIP028IncomingOTHERRequests: $objItem->{SIP028IncomingOTHERRequests}\n";
	print "SIP029IncomingOTHERRequestsPersec: $objItem->{SIP029IncomingOTHERRequestsPersec}\n";
	print "SIP030LocalNOTIFYRequests: $objItem->{SIP030LocalNOTIFYRequests}\n";
	print "SIP031LocalNOTIFYRequestsPersec: $objItem->{SIP031LocalNOTIFYRequestsPersec}\n";
	print "SIP032LocalBENOTIFYRequests: $objItem->{SIP032LocalBENOTIFYRequests}\n";
	print "SIP033LocalBENOTIFYRequestsPersec: $objItem->{SIP033LocalBENOTIFYRequestsPersec}\n";
	print "SIP034LocalINFORequests: $objItem->{SIP034LocalINFORequests}\n";
	print "SIP035LocalINFORequestsPersec: $objItem->{SIP035LocalINFORequestsPersec}\n";
	print "SIP036LocalBYERequests: $objItem->{SIP036LocalBYERequests}\n";
	print "SIP037LocalBYERequestsPersec: $objItem->{SIP037LocalBYERequestsPersec}\n";
	print "SIP038LocalCANCELRequests: $objItem->{SIP038LocalCANCELRequests}\n";
	print "SIP039LocalCANCELRequestsPersec: $objItem->{SIP039LocalCANCELRequestsPersec}\n";
	print "SIP040IncomingACKRequestsproxied: $objItem->{SIP040IncomingACKRequestsproxied}\n";
	print "SIP041IncomingACKRequestsProxiedPersec: $objItem->{SIP041IncomingACKRequestsProxiedPersec}\n";
	print "SIP042IncomingBYERequestsproxied: $objItem->{SIP042IncomingBYERequestsproxied}\n";
	print "SIP043IncomingBYERequestsProxiedPersec: $objItem->{SIP043IncomingBYERequestsProxiedPersec}\n";
	print "SIP044IncomingCANCELRequestsproxied: $objItem->{SIP044IncomingCANCELRequestsproxied}\n";
	print "SIP045IncomingCANCELRequestsProxiedPersec: $objItem->{SIP045IncomingCANCELRequestsProxiedPersec}\n";
	print "SIP046IncomingINFORequestsproxied: $objItem->{SIP046IncomingINFORequestsproxied}\n";
	print "SIP047IncomingINFORequestsProxiedPersec: $objItem->{SIP047IncomingINFORequestsProxiedPersec}\n";
	print "SIP048IncomingINVITERequestsproxied: $objItem->{SIP048IncomingINVITERequestsproxied}\n";
	print "SIP049IncomingINVITERequestsProxiedPersec: $objItem->{SIP049IncomingINVITERequestsProxiedPersec}\n";
	print "SIP050IncomingMESSAGERequestsproxied: $objItem->{SIP050IncomingMESSAGERequestsproxied}\n";
	print "SIP051IncomingMESSAGERequestsProxiedPersec: $objItem->{SIP051IncomingMESSAGERequestsProxiedPersec}\n";
	print "SIP052IncomingNOTIFYRequestsproxied: $objItem->{SIP052IncomingNOTIFYRequestsproxied}\n";
	print "SIP053IncomingNOTIFYRequestsProxiedPersec: $objItem->{SIP053IncomingNOTIFYRequestsProxiedPersec}\n";
	print "SIP054IncomingOPTIONRequestsproxied: $objItem->{SIP054IncomingOPTIONRequestsproxied}\n";
	print "SIP055IncomingOPTIONRequestsProxiedPersec: $objItem->{SIP055IncomingOPTIONRequestsProxiedPersec}\n";
	print "SIP056IncomingREFERRequestsproxied: $objItem->{SIP056IncomingREFERRequestsproxied}\n";
	print "SIP057IncomingREFERRequestsProxiedPersec: $objItem->{SIP057IncomingREFERRequestsProxiedPersec}\n";
	print "SIP058IncomingSERVICERequestsproxied: $objItem->{SIP058IncomingSERVICERequestsproxied}\n";
	print "SIP059IncomingSERVICERequestsProxiedPersec: $objItem->{SIP059IncomingSERVICERequestsProxiedPersec}\n";
	print "SIP060IncomingREGISTERRequestsproxied: $objItem->{SIP060IncomingREGISTERRequestsproxied}\n";
	print "SIP061IncomingREGISTERRequestsProxiedPersec: $objItem->{SIP061IncomingREGISTERRequestsProxiedPersec}\n";
	print "SIP062IncomingSUBSCRIBERequestsproxied: $objItem->{SIP062IncomingSUBSCRIBERequestsproxied}\n";
	print "SIP063IncomingSUBSCRIBERequestsProxiedPersec: $objItem->{SIP063IncomingSUBSCRIBERequestsProxiedPersec}\n";
	print "SIP064IncomingBENOTIFYRequestsproxied: $objItem->{SIP064IncomingBENOTIFYRequestsproxied}\n";
	print "SIP065IncomingBENOTIFYRequestsProxiedPersec: $objItem->{SIP065IncomingBENOTIFYRequestsProxiedPersec}\n";
	print "SIP066IncomingOTHERRequestsproxied: $objItem->{SIP066IncomingOTHERRequestsproxied}\n";
	print "SIP067IncomingOTHERRequestsProxiedPersec: $objItem->{SIP067IncomingOTHERRequestsProxiedPersec}\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";
}