LCSipEps03SipEpsIncomingMessages - 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 LCSipEps03SipEpsIncomingMessages WMI class can be used in ActiveXperts Network Monitor to monitor your servers.
LCSipEps03SipEpsIncomingMessages
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_S4Perf_LCSipEps03SipEpsIncomingMessages", "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 "SipEps000IncomingMessages: $objItem->{SipEps000IncomingMessages}\n";
print "SipEps001IncomingMessagesPersec: $objItem->{SipEps001IncomingMessagesPersec}\n";
print "SipEps002FailedIncomingMessages: $objItem->{SipEps002FailedIncomingMessages}\n";
print "SipEps003FailedIncomingMessagesPersec: $objItem->{SipEps003FailedIncomingMessagesPersec}\n";
print "SipEps004IncomingACKmessages: $objItem->{SipEps004IncomingACKmessages}\n";
print "SipEps005IncomingACKmessagesPersec: $objItem->{SipEps005IncomingACKmessagesPersec}\n";
print "SipEps006IncomingBYEmessages: $objItem->{SipEps006IncomingBYEmessages}\n";
print "SipEps007IncomingBYEmessagesPersec: $objItem->{SipEps007IncomingBYEmessagesPersec}\n";
print "SipEps008IncomingCANCELmessages: $objItem->{SipEps008IncomingCANCELmessages}\n";
print "SipEps009IncomingCANCELmessagesPersec: $objItem->{SipEps009IncomingCANCELmessagesPersec}\n";
print "SipEps010IncomingINFOmessages: $objItem->{SipEps010IncomingINFOmessages}\n";
print "SipEps011IncomingINFOmessagesPersec: $objItem->{SipEps011IncomingINFOmessagesPersec}\n";
print "SipEps012IncomingINVITEmessages: $objItem->{SipEps012IncomingINVITEmessages}\n";
print "SipEps013IncomingINVITEmessagesPersec: $objItem->{SipEps013IncomingINVITEmessagesPersec}\n";
print "SipEps014IncomingMESSAGEmessages: $objItem->{SipEps014IncomingMESSAGEmessages}\n";
print "SipEps015IncomingMESSAGEmessagesPersec: $objItem->{SipEps015IncomingMESSAGEmessagesPersec}\n";
print "SipEps016IncomingNEGOTIATEmessages: $objItem->{SipEps016IncomingNEGOTIATEmessages}\n";
print "SipEps017IncomingNEGOTIATEmessagesPersec: $objItem->{SipEps017IncomingNEGOTIATEmessagesPersec}\n";
print "SipEps018IncomingNOTIFYmessages: $objItem->{SipEps018IncomingNOTIFYmessages}\n";
print "SipEps019IncomingNOTIFYmessagesPersec: $objItem->{SipEps019IncomingNOTIFYmessagesPersec}\n";
print "SipEps020IncomingOPTIONSmessages: $objItem->{SipEps020IncomingOPTIONSmessages}\n";
print "SipEps021IncomingOPTIONSmessagesPersec: $objItem->{SipEps021IncomingOPTIONSmessagesPersec}\n";
print "SipEps022IncomingREFERmessages: $objItem->{SipEps022IncomingREFERmessages}\n";
print "SipEps023IncomingREFERmessagesPersec: $objItem->{SipEps023IncomingREFERmessagesPersec}\n";
print "SipEps024IncomingREGISTERmessages: $objItem->{SipEps024IncomingREGISTERmessages}\n";
print "SipEps025IncomingREGISTERmessagesPersec: $objItem->{SipEps025IncomingREGISTERmessagesPersec}\n";
print "SipEps026IncomingSERVICEmessages: $objItem->{SipEps026IncomingSERVICEmessages}\n";
print "SipEps027IncomingSERVICEmessagesPersec: $objItem->{SipEps027IncomingSERVICEmessagesPersec}\n";
print "SipEps028IncomingSUBSCRIBEmessages: $objItem->{SipEps028IncomingSUBSCRIBEmessages}\n";
print "SipEps029IncomingSUBSCRIBEmessagesPersec: $objItem->{SipEps029IncomingSUBSCRIBEmessagesPersec}\n";
print "SipEps030IncomingGenericMessages: $objItem->{SipEps030IncomingGenericMessages}\n";
print "SipEps031IncomingGenericMessagesPersec: $objItem->{SipEps031IncomingGenericMessagesPersec}\n";
print "SipEps032Incoming3xxResponses: $objItem->{SipEps032Incoming3xxResponses}\n";
print "SipEps033Incoming3xxResponsesPersec: $objItem->{SipEps033Incoming3xxResponsesPersec}\n";
print "SipEps034Incoming4xxResponses: $objItem->{SipEps034Incoming4xxResponses}\n";
print "SipEps035Incoming4xxResponsesPersec: $objItem->{SipEps035Incoming4xxResponsesPersec}\n";
print "SipEps036Incoming5xxResponses: $objItem->{SipEps036Incoming5xxResponses}\n";
print "SipEps037Incoming5xxResponsesPersec: $objItem->{SipEps037Incoming5xxResponsesPersec}\n";
print "SipEps038Incoming6xxResponses: $objItem->{SipEps038Incoming6xxResponses}\n";
print "SipEps039Incoming6xxResponsesPersec: $objItem->{SipEps039Incoming6xxResponsesPersec}\n";
print "SipEps040Incoming180RingingResponses: $objItem->{SipEps040Incoming180RingingResponses}\n";
print "SipEps041Incoming180RingingResponsesPersec: $objItem->{SipEps041Incoming180RingingResponsesPersec}\n";
print "SipEps042Incoming200Responses: $objItem->{SipEps042Incoming200Responses}\n";
print "SipEps043Incoming200ResponsesPersec: $objItem->{SipEps043Incoming200ResponsesPersec}\n";
print "SipEps044Incoming301MovedPermanentlyResponses: $objItem->{SipEps044Incoming301MovedPermanentlyResponses}\n";
print "SipEps045Incoming301MovedPermanentlyResponsesPersec: $objItem->{SipEps045Incoming301MovedPermanentlyResponsesPersec}\n";
print "SipEps046Incoming302MovedTemporarilyResponses: $objItem->{SipEps046Incoming302MovedTemporarilyResponses}\n";
print "SipEps047Incoming302MovedTemporarilyResponsesPersec: $objItem->{SipEps047Incoming302MovedTemporarilyResponsesPersec}\n";
print "SipEps048Incoming400BadRequestResponses: $objItem->{SipEps048Incoming400BadRequestResponses}\n";
print "SipEps049Incoming400BadRequestResponsesPersec: $objItem->{SipEps049Incoming400BadRequestResponsesPersec}\n";
print "SipEps050Incoming401UnauthorizedResponses: $objItem->{SipEps050Incoming401UnauthorizedResponses}\n";
print "SipEps051Incoming401UnauthorizedResponsesPersec: $objItem->{SipEps051Incoming401UnauthorizedResponsesPersec}\n";
print "SipEps052Incoming403ForbiddenResponses: $objItem->{SipEps052Incoming403ForbiddenResponses}\n";
print "SipEps053Incoming403ForbiddenResponsesPersec: $objItem->{SipEps053Incoming403ForbiddenResponsesPersec}\n";
print "SipEps054Incoming404NotFoundResponses: $objItem->{SipEps054Incoming404NotFoundResponses}\n";
print "SipEps055Incoming404NotFoundResponsesPersec: $objItem->{SipEps055Incoming404NotFoundResponsesPersec}\n";
print "SipEps056Incoming407ProxyAuthenticationRequiredResponses: $objItem->{SipEps056Incoming407ProxyAuthenticationRequiredResponses}\n";
print "SipEps057Incoming407ProxyAuthenticationRequiredResponsesPersec: $objItem->{SipEps057Incoming407ProxyAuthenticationRequiredResponsesPersec}\n";
print "SipEps058Incoming409Responses: $objItem->{SipEps058Incoming409Responses}\n";
print "SipEps059Incoming409ResponsesPersec: $objItem->{SipEps059Incoming409ResponsesPersec}\n";
print "SipEps060Incoming413RequestEntityTooLargeResponses: $objItem->{SipEps060Incoming413RequestEntityTooLargeResponses}\n";
print "SipEps061Incoming413RequestEntityTooLargeResponsesPersec: $objItem->{SipEps061Incoming413RequestEntityTooLargeResponsesPersec}\n";
print "SipEps062Incoming421ExtensionRequiredResponses: $objItem->{SipEps062Incoming421ExtensionRequiredResponses}\n";
print "SipEps063Incoming421ExtensionRequiredResponsesPersec: $objItem->{SipEps063Incoming421ExtensionRequiredResponsesPersec}\n";
print "SipEps064Incoming480TemporarilyUnavailableResponses: $objItem->{SipEps064Incoming480TemporarilyUnavailableResponses}\n";
print "SipEps065Incoming480TemporarilyUnavailableResponsesPersec: $objItem->{SipEps065Incoming480TemporarilyUnavailableResponsesPersec}\n";
print "SipEps066Incoming481CallPerTransactionDoesNotExistResponses: $objItem->{SipEps066Incoming481CallPerTransactionDoesNotExistResponses}\n";
print "SipEps067Incoming481CallPerTransactionDoesNotExistResponsesPersec: $objItem->{SipEps067Incoming481CallPerTransactionDoesNotExistResponsesPersec}\n";
print "SipEps068Incoming486BusyHereResponses: $objItem->{SipEps068Incoming486BusyHereResponses}\n";
print "SipEps069Incoming486BusyHereResponsesPersec: $objItem->{SipEps069Incoming486BusyHereResponsesPersec}\n";
print "SipEps070Incoming487RequestTerminatedResponses: $objItem->{SipEps070Incoming487RequestTerminatedResponses}\n";
print "SipEps071Incoming487RequestTerminatedResponsesPersec: $objItem->{SipEps071Incoming487RequestTerminatedResponsesPersec}\n";
print "SipEps072Incoming488NotAcceptableHereResponses: $objItem->{SipEps072Incoming488NotAcceptableHereResponses}\n";
print "SipEps073Incoming488NotAcceptableHereResponsesPersec: $objItem->{SipEps073Incoming488NotAcceptableHereResponsesPersec}\n";
print "SipEps074Incoming499Responses: $objItem->{SipEps074Incoming499Responses}\n";
print "SipEps075Incoming499ResponsesPersec: $objItem->{SipEps075Incoming499ResponsesPersec}\n";
print "SipEps076Incoming500InternalServerErrorResponses: $objItem->{SipEps076Incoming500InternalServerErrorResponses}\n";
print "SipEps077Incoming500InternalServerErrorResponsesPersec: $objItem->{SipEps077Incoming500InternalServerErrorResponsesPersec}\n";
print "SipEps078Incoming501NotImplementedResponses: $objItem->{SipEps078Incoming501NotImplementedResponses}\n";
print "SipEps079Incoming501NotImplementedResponsesPersec: $objItem->{SipEps079Incoming501NotImplementedResponsesPersec}\n";
print "SipEps080Incoming503ServiceUnavailableResponses: $objItem->{SipEps080Incoming503ServiceUnavailableResponses}\n";
print "SipEps081Incoming503ServiceUnavailableResponsesPersec: $objItem->{SipEps081Incoming503ServiceUnavailableResponsesPersec}\n";
print "SipEps082Incoming504ServerTimeoutResponses: $objItem->{SipEps082Incoming504ServerTimeoutResponses}\n";
print "SipEps083Incoming504ServerTimeoutResponsesPersec: $objItem->{SipEps083Incoming504ServerTimeoutResponsesPersec}\n";
print "SipEps084Incoming599Responses: $objItem->{SipEps084Incoming599Responses}\n";
print "SipEps085Incoming599ResponsesPersec: $objItem->{SipEps085Incoming599ResponsesPersec}\n";
print "SipEps086Incoming600BusyEverywhereResponses: $objItem->{SipEps086Incoming600BusyEverywhereResponses}\n";
print "SipEps087Incoming600BusyEverywhereResponsesPersec: $objItem->{SipEps087Incoming600BusyEverywhereResponsesPersec}\n";
print "SipEps088Incoming603DeclineResponses: $objItem->{SipEps088Incoming603DeclineResponses}\n";
print "SipEps089Incoming603DeclineResponsesPersec: $objItem->{SipEps089Incoming603DeclineResponsesPersec}\n";
print "SipEps090Incoming699Responses: $objItem->{SipEps090Incoming699Responses}\n";
print "SipEps091Incoming699ResponsesPersec: $objItem->{SipEps091Incoming699ResponsesPersec}\n";
print "SipEps092IncomingoutofsequenceNotifies: $objItem->{SipEps092IncomingoutofsequenceNotifies}\n";
print "SipEps093IncomingoutofsequenceNotifiesPersec: $objItem->{SipEps093IncomingoutofsequenceNotifiesPersec}\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";
}