LCSIP04Responses - 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 LCSIP04Responses WMI class can be used in ActiveXperts Network Monitor to monitor your servers.

---

LCSIP04Responses

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_PerfRawData_WSIPPerf_LCSIP04Responses", "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 "SIP000Incoming1xxnon100Responses: $objItem->{SIP000Incoming1xxnon100Responses}\n";
	print "SIP001Incoming1xxnon100ResponsesPersec: $objItem->{SIP001Incoming1xxnon100ResponsesPersec}\n";
	print "SIP002Incoming2xxResponses: $objItem->{SIP002Incoming2xxResponses}\n";
	print "SIP003Incoming2xxResponsesPersec: $objItem->{SIP003Incoming2xxResponsesPersec}\n";
	print "SIP004Incoming3xxResponses: $objItem->{SIP004Incoming3xxResponses}\n";
	print "SIP005Incoming3xxResponsesPersec: $objItem->{SIP005Incoming3xxResponsesPersec}\n";
	print "SIP006Incoming400Responses: $objItem->{SIP006Incoming400Responses}\n";
	print "SIP007Incoming400ResponsesPersec: $objItem->{SIP007Incoming400ResponsesPersec}\n";
	print "SIP008Incoming401Responses: $objItem->{SIP008Incoming401Responses}\n";
	print "SIP009Incoming401ResponsesPersec: $objItem->{SIP009Incoming401ResponsesPersec}\n";
	print "SIP010Incoming403Responses: $objItem->{SIP010Incoming403Responses}\n";
	print "SIP011Incoming403ResponsesPersec: $objItem->{SIP011Incoming403ResponsesPersec}\n";
	print "SIP012Incoming404Responses: $objItem->{SIP012Incoming404Responses}\n";
	print "SIP013Incoming404ResponsesPersec: $objItem->{SIP013Incoming404ResponsesPersec}\n";
	print "SIP014Incoming407Responses: $objItem->{SIP014Incoming407Responses}\n";
	print "SIP015Incoming407ResponsesPersec: $objItem->{SIP015Incoming407ResponsesPersec}\n";
	print "SIP016Incoming408Responses: $objItem->{SIP016Incoming408Responses}\n";
	print "SIP017Incoming408ResponsesPersec: $objItem->{SIP017Incoming408ResponsesPersec}\n";
	print "SIP018Incoming482Responses: $objItem->{SIP018Incoming482Responses}\n";
	print "SIP019Incoming482ResponsesPersec: $objItem->{SIP019Incoming482ResponsesPersec}\n";
	print "SIP020Incoming483Responses: $objItem->{SIP020Incoming483Responses}\n";
	print "SIP021Incoming483ResponsesPersec: $objItem->{SIP021Incoming483ResponsesPersec}\n";
	print "SIP022IncomingOther4xxResponses: $objItem->{SIP022IncomingOther4xxResponses}\n";
	print "SIP023IncomingOther4xxResponsesPersec: $objItem->{SIP023IncomingOther4xxResponsesPersec}\n";
	print "SIP024Incoming503Responses: $objItem->{SIP024Incoming503Responses}\n";
	print "SIP025Incoming503ResponsesPersec: $objItem->{SIP025Incoming503ResponsesPersec}\n";
	print "SIP026Incoming504Responses: $objItem->{SIP026Incoming504Responses}\n";
	print "SIP027Incoming504ResponsesPersec: $objItem->{SIP027Incoming504ResponsesPersec}\n";
	print "SIP028IncomingOther5xxResponses: $objItem->{SIP028IncomingOther5xxResponses}\n";
	print "SIP029IncomingOther5xxResponsesPersec: $objItem->{SIP029IncomingOther5xxResponsesPersec}\n";
	print "SIP030Incoming6xxResponses: $objItem->{SIP030Incoming6xxResponses}\n";
	print "SIP031Incoming6xxResponsesPersec: $objItem->{SIP031Incoming6xxResponsesPersec}\n";
	print "SIP032Local1xxResponses: $objItem->{SIP032Local1xxResponses}\n";
	print "SIP033Local1xxResponsesPersec: $objItem->{SIP033Local1xxResponsesPersec}\n";
	print "SIP034Local2xxResponses: $objItem->{SIP034Local2xxResponses}\n";
	print "SIP035Local2xxResponsesPersec: $objItem->{SIP035Local2xxResponsesPersec}\n";
	print "SIP036Local3xxResponses: $objItem->{SIP036Local3xxResponses}\n";
	print "SIP037Local3xxResponsesPersec: $objItem->{SIP037Local3xxResponsesPersec}\n";
	print "SIP038Local400Responses: $objItem->{SIP038Local400Responses}\n";
	print "SIP039Local400ResponsesPersec: $objItem->{SIP039Local400ResponsesPersec}\n";
	print "SIP040Local403Responses: $objItem->{SIP040Local403Responses}\n";
	print "SIP041Local403ResponsesPersec: $objItem->{SIP041Local403ResponsesPersec}\n";
	print "SIP042Local404Responses: $objItem->{SIP042Local404Responses}\n";
	print "SIP043Local404ResponsesPersec: $objItem->{SIP043Local404ResponsesPersec}\n";
	print "SIP044Local408Responses: $objItem->{SIP044Local408Responses}\n";
	print "SIP045Local408ResponsesPersec: $objItem->{SIP045Local408ResponsesPersec}\n";
	print "SIP046Local482Responses: $objItem->{SIP046Local482Responses}\n";
	print "SIP047Local482ResponsesPersec: $objItem->{SIP047Local482ResponsesPersec}\n";
	print "SIP048Local483Responses: $objItem->{SIP048Local483Responses}\n";
	print "SIP049Local483ResponsesPersec: $objItem->{SIP049Local483ResponsesPersec}\n";
	print "SIP050LocalOther4xxResponses: $objItem->{SIP050LocalOther4xxResponses}\n";
	print "SIP051LocalOther4xxResponsesPersec: $objItem->{SIP051LocalOther4xxResponsesPersec}\n";
	print "SIP052Local500Responses: $objItem->{SIP052Local500Responses}\n";
	print "SIP053Local500ResponsesPersec: $objItem->{SIP053Local500ResponsesPersec}\n";
	print "SIP054Local503Responses: $objItem->{SIP054Local503Responses}\n";
	print "SIP055Local503ResponsesPersec: $objItem->{SIP055Local503ResponsesPersec}\n";
	print "SIP056Local504Responses: $objItem->{SIP056Local504Responses}\n";
	print "SIP057Local504ResponsesPersec: $objItem->{SIP057Local504ResponsesPersec}\n";
	print "SIP058LocalOther5xxResponses: $objItem->{SIP058LocalOther5xxResponses}\n";
	print "SIP059LocalOther5xxResponsesPersec: $objItem->{SIP059LocalOther5xxResponsesPersec}\n";
	print "SIP060Local6xxResponses: $objItem->{SIP060Local6xxResponses}\n";
	print "SIP061Local6xxResponsesPersec: $objItem->{SIP061Local6xxResponsesPersec}\n";
	print "SIP062LocalMsDiagHeaders: $objItem->{SIP062LocalMsDiagHeaders}\n";
	print "SIP063LocalMsDiagHeadersPersec: $objItem->{SIP063LocalMsDiagHeadersPersec}\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";
}