LCSipEps04SipEpsOutgoingMessages - 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 LCSipEps04SipEpsOutgoingMessages WMI class can be used in ActiveXperts Network Monitor to monitor your servers.
LCSipEps04SipEpsOutgoingMessages
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_LCSipEps04SipEpsOutgoingMessages", "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 "SipEps000OutgoingMessages: $objItem->{SipEps000OutgoingMessages}\n";
print "SipEps001OutgoingMessagesPersec: $objItem->{SipEps001OutgoingMessagesPersec}\n";
print "SipEps002FailedOutgoingMessages: $objItem->{SipEps002FailedOutgoingMessages}\n";
print "SipEps003FailedOutgoingMessagesPersec: $objItem->{SipEps003FailedOutgoingMessagesPersec}\n";
print "SipEps004OutgoingACKmessages: $objItem->{SipEps004OutgoingACKmessages}\n";
print "SipEps005OutgoingACKmessagesPersec: $objItem->{SipEps005OutgoingACKmessagesPersec}\n";
print "SipEps006OutgoingBYEmessages: $objItem->{SipEps006OutgoingBYEmessages}\n";
print "SipEps007OutgoingBYEmessagesPersec: $objItem->{SipEps007OutgoingBYEmessagesPersec}\n";
print "SipEps008OutgoingCANCELmessages: $objItem->{SipEps008OutgoingCANCELmessages}\n";
print "SipEps009OutgoingCANCELmessagesPersec: $objItem->{SipEps009OutgoingCANCELmessagesPersec}\n";
print "SipEps010OutgoingINFOmessages: $objItem->{SipEps010OutgoingINFOmessages}\n";
print "SipEps011OutgoingINFOmessagesPersec: $objItem->{SipEps011OutgoingINFOmessagesPersec}\n";
print "SipEps012OutgoingINVITEmessages: $objItem->{SipEps012OutgoingINVITEmessages}\n";
print "SipEps013OutgoingINVITEmessagesPersec: $objItem->{SipEps013OutgoingINVITEmessagesPersec}\n";
print "SipEps014OutgoingMESSAGEmessages: $objItem->{SipEps014OutgoingMESSAGEmessages}\n";
print "SipEps015OutgoingMESSAGEmessagesPersec: $objItem->{SipEps015OutgoingMESSAGEmessagesPersec}\n";
print "SipEps016OutgoingNEGOTIATEmessages: $objItem->{SipEps016OutgoingNEGOTIATEmessages}\n";
print "SipEps017OutgoingNEGOTIATEmessagesPersec: $objItem->{SipEps017OutgoingNEGOTIATEmessagesPersec}\n";
print "SipEps018OutgoingNOTIFYmessages: $objItem->{SipEps018OutgoingNOTIFYmessages}\n";
print "SipEps019OutgoingNOTIFYmessagesPersec: $objItem->{SipEps019OutgoingNOTIFYmessagesPersec}\n";
print "SipEps020OutgoingOPTIONSmessages: $objItem->{SipEps020OutgoingOPTIONSmessages}\n";
print "SipEps021OutgoingOPTIONSmessagesPersec: $objItem->{SipEps021OutgoingOPTIONSmessagesPersec}\n";
print "SipEps022OutgoingREFERmessages: $objItem->{SipEps022OutgoingREFERmessages}\n";
print "SipEps023OutgoingREFERmessagesPersec: $objItem->{SipEps023OutgoingREFERmessagesPersec}\n";
print "SipEps024OutgoingREGISTERmessages: $objItem->{SipEps024OutgoingREGISTERmessages}\n";
print "SipEps025OutgoingREGISTERmessagesPersec: $objItem->{SipEps025OutgoingREGISTERmessagesPersec}\n";
print "SipEps026OutgoingSERVICEmessages: $objItem->{SipEps026OutgoingSERVICEmessages}\n";
print "SipEps027OutgoingSERVICEmessagesPersec: $objItem->{SipEps027OutgoingSERVICEmessagesPersec}\n";
print "SipEps028OutgoingSUBSCRIBEmessages: $objItem->{SipEps028OutgoingSUBSCRIBEmessages}\n";
print "SipEps029OutgoingSUBSCRIBEmessagesPersec: $objItem->{SipEps029OutgoingSUBSCRIBEmessagesPersec}\n";
print "SipEps030OutgoingGenericMessages: $objItem->{SipEps030OutgoingGenericMessages}\n";
print "SipEps031OutgoingGenericMessagesPersec: $objItem->{SipEps031OutgoingGenericMessagesPersec}\n";
print "SipEps032Outgoing3xxResponses: $objItem->{SipEps032Outgoing3xxResponses}\n";
print "SipEps033Outgoing3xxResponsesPersec: $objItem->{SipEps033Outgoing3xxResponsesPersec}\n";
print "SipEps034Outgoing4xxResponses: $objItem->{SipEps034Outgoing4xxResponses}\n";
print "SipEps035Outgoing4xxResponsesPersec: $objItem->{SipEps035Outgoing4xxResponsesPersec}\n";
print "SipEps036Outgoing5xxResponses: $objItem->{SipEps036Outgoing5xxResponses}\n";
print "SipEps037Outgoing5xxResponsesPersec: $objItem->{SipEps037Outgoing5xxResponsesPersec}\n";
print "SipEps038Outgoing6xxResponses: $objItem->{SipEps038Outgoing6xxResponses}\n";
print "SipEps039Outgoing6xxResponsesPersec: $objItem->{SipEps039Outgoing6xxResponsesPersec}\n";
print "SipEps040Outgoing180RingingResponses: $objItem->{SipEps040Outgoing180RingingResponses}\n";
print "SipEps041Outgoing180RingingResponsesPersec: $objItem->{SipEps041Outgoing180RingingResponsesPersec}\n";
print "SipEps042Outgoing200Responses: $objItem->{SipEps042Outgoing200Responses}\n";
print "SipEps043Outgoing200ResponsesPersec: $objItem->{SipEps043Outgoing200ResponsesPersec}\n";
print "SipEps044Outgoing301MovedPermanentlyResponses: $objItem->{SipEps044Outgoing301MovedPermanentlyResponses}\n";
print "SipEps045Outgoing301MovedPermanentlyResponsesPersec: $objItem->{SipEps045Outgoing301MovedPermanentlyResponsesPersec}\n";
print "SipEps046Outgoing302MovedTemporarilyResponses: $objItem->{SipEps046Outgoing302MovedTemporarilyResponses}\n";
print "SipEps047Outgoing302MovedTemporarilyResponsesPersec: $objItem->{SipEps047Outgoing302MovedTemporarilyResponsesPersec}\n";
print "SipEps048Outgoing400BadRequestResponses: $objItem->{SipEps048Outgoing400BadRequestResponses}\n";
print "SipEps049Outgoing400BadRequestResponsesPersec: $objItem->{SipEps049Outgoing400BadRequestResponsesPersec}\n";
print "SipEps050Outgoing401UnauthorizedResponses: $objItem->{SipEps050Outgoing401UnauthorizedResponses}\n";
print "SipEps051Outgoing401UnauthorizedResponsesPersec: $objItem->{SipEps051Outgoing401UnauthorizedResponsesPersec}\n";
print "SipEps052Outgoing403ForbiddenResponses: $objItem->{SipEps052Outgoing403ForbiddenResponses}\n";
print "SipEps053Outgoing403ForbiddenResponsesPersec: $objItem->{SipEps053Outgoing403ForbiddenResponsesPersec}\n";
print "SipEps054Outgoing404NotFoundResponses: $objItem->{SipEps054Outgoing404NotFoundResponses}\n";
print "SipEps055Outgoing404NotFoundResponsesPersec: $objItem->{SipEps055Outgoing404NotFoundResponsesPersec}\n";
print "SipEps056Outgoing407ProxyAuthenticationRequiredResponses: $objItem->{SipEps056Outgoing407ProxyAuthenticationRequiredResponses}\n";
print "SipEps057Outgoing407ProxyAuthenticationRequiredResponsesPersec: $objItem->{SipEps057Outgoing407ProxyAuthenticationRequiredResponsesPersec}\n";
print "SipEps058Outgoing409Responses: $objItem->{SipEps058Outgoing409Responses}\n";
print "SipEps059Outgoing409ResponsesPersec: $objItem->{SipEps059Outgoing409ResponsesPersec}\n";
print "SipEps060Outgoing413RequestEntityTooLargeResponses: $objItem->{SipEps060Outgoing413RequestEntityTooLargeResponses}\n";
print "SipEps061Outgoing413RequestEntityTooLargeResponsesPersec: $objItem->{SipEps061Outgoing413RequestEntityTooLargeResponsesPersec}\n";
print "SipEps062Outgoing421ExtensionRequiredResponses: $objItem->{SipEps062Outgoing421ExtensionRequiredResponses}\n";
print "SipEps063Outgoing421ExtensionRequiredResponsesPersec: $objItem->{SipEps063Outgoing421ExtensionRequiredResponsesPersec}\n";
print "SipEps064Outgoing480TemporarilyUnavailableResponses: $objItem->{SipEps064Outgoing480TemporarilyUnavailableResponses}\n";
print "SipEps065Outgoing480TemporarilyUnavailableResponsesPersec: $objItem->{SipEps065Outgoing480TemporarilyUnavailableResponsesPersec}\n";
print "SipEps066Outgoing481CallPerTransactionDoesNotExistResponses: $objItem->{SipEps066Outgoing481CallPerTransactionDoesNotExistResponses}\n";
print "SipEps067Outgoing481CallPerTransactionDoesNotExistResponsesPersec: $objItem->{SipEps067Outgoing481CallPerTransactionDoesNotExistResponsesPersec}\n";
print "SipEps068Outgoing486BusyHereResponses: $objItem->{SipEps068Outgoing486BusyHereResponses}\n";
print "SipEps069Outgoing486BusyHereResponsesPersec: $objItem->{SipEps069Outgoing486BusyHereResponsesPersec}\n";
print "SipEps070Outgoing487RequestTerminatedResponses: $objItem->{SipEps070Outgoing487RequestTerminatedResponses}\n";
print "SipEps071Outgoing487RequestTerminatedResponsesPersec: $objItem->{SipEps071Outgoing487RequestTerminatedResponsesPersec}\n";
print "SipEps072Outgoing488NotAcceptableHereResponses: $objItem->{SipEps072Outgoing488NotAcceptableHereResponses}\n";
print "SipEps073Outgoing488NotAcceptableHereResponsesPersec: $objItem->{SipEps073Outgoing488NotAcceptableHereResponsesPersec}\n";
print "SipEps074Outgoing499Responses: $objItem->{SipEps074Outgoing499Responses}\n";
print "SipEps075Outgoing499ResponsesPersec: $objItem->{SipEps075Outgoing499ResponsesPersec}\n";
print "SipEps076Outgoing500InternalServerErrorResponses: $objItem->{SipEps076Outgoing500InternalServerErrorResponses}\n";
print "SipEps077Outgoing500InternalServerErrorResponsesPersec: $objItem->{SipEps077Outgoing500InternalServerErrorResponsesPersec}\n";
print "SipEps078Outgoing501NotImplementedResponses: $objItem->{SipEps078Outgoing501NotImplementedResponses}\n";
print "SipEps079Outgoing501NotImplementedResponsesPersec: $objItem->{SipEps079Outgoing501NotImplementedResponsesPersec}\n";
print "SipEps080Outgoing503ServiceUnavailableResponses: $objItem->{SipEps080Outgoing503ServiceUnavailableResponses}\n";
print "SipEps081Outgoing503ServiceUnavailableResponsesPersec: $objItem->{SipEps081Outgoing503ServiceUnavailableResponsesPersec}\n";
print "SipEps082Outgoing504ServerTimeoutResponses: $objItem->{SipEps082Outgoing504ServerTimeoutResponses}\n";
print "SipEps083Outgoing504ServerTimeoutResponsesPersec: $objItem->{SipEps083Outgoing504ServerTimeoutResponsesPersec}\n";
print "SipEps084Outgoing599Responses: $objItem->{SipEps084Outgoing599Responses}\n";
print "SipEps085Outgoing599ResponsesPersec: $objItem->{SipEps085Outgoing599ResponsesPersec}\n";
print "SipEps086Outgoing600BusyEverywhereResponses: $objItem->{SipEps086Outgoing600BusyEverywhereResponses}\n";
print "SipEps087Outgoing600BusyEverywhereResponsesPersec: $objItem->{SipEps087Outgoing600BusyEverywhereResponsesPersec}\n";
print "SipEps088Outgoing603DeclineResponses: $objItem->{SipEps088Outgoing603DeclineResponses}\n";
print "SipEps089Outgoing603DeclineResponsesPersec: $objItem->{SipEps089Outgoing603DeclineResponsesPersec}\n";
print "SipEps090Outgoing699Responses: $objItem->{SipEps090Outgoing699Responses}\n";
print "SipEps091Outgoing699ResponsesPersec: $objItem->{SipEps091Outgoing699ResponsesPersec}\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";
}