Contact Info

Crumbtrail

ActiveXperts.com » Administration » Scripts » WMI Performance Counters » VBScript

SQLServerBrokerStatistics - WMI sample in VBScript

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


SQLServerBrokerStatistics

Example(s)

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_PerfFormattedData_MSSQLSERVER_SQLServerBrokerStatistics")

For Each objItem in colItems
	WScript.Echo "ActivationErrorsTotal:" & objItem.ActivationErrorsTotal
	WScript.Echo "BrokerTransactionRollbacks:" & objItem.BrokerTransactionRollbacks
	WScript.Echo "Caption:" & objItem.Caption
	WScript.Echo "CorruptedMessagesTotal:" & objItem.CorruptedMessagesTotal
	WScript.Echo "DequeuedTransmissionQMsgsPersec:" & objItem.DequeuedTransmissionQMsgsPersec
	WScript.Echo "Description:" & objItem.Description
	WScript.Echo "DialogTimerEventCount:" & objItem.DialogTimerEventCount
	WScript.Echo "DroppedMessagesTotal:" & objItem.DroppedMessagesTotal
	WScript.Echo "EnqueuedLocalMessagesPersec:" & objItem.EnqueuedLocalMessagesPersec
	WScript.Echo "EnqueuedLocalMessagesTotal:" & objItem.EnqueuedLocalMessagesTotal
	WScript.Echo "EnqueuedMessagesPersec:" & objItem.EnqueuedMessagesPersec
	WScript.Echo "EnqueuedMessagesTotal:" & objItem.EnqueuedMessagesTotal
	WScript.Echo "EnqueuedP10MessagesPersec:" & objItem.EnqueuedP10MessagesPersec
	WScript.Echo "EnqueuedP1MessagesPersec:" & objItem.EnqueuedP1MessagesPersec
	WScript.Echo "EnqueuedP2MessagesPersec:" & objItem.EnqueuedP2MessagesPersec
	WScript.Echo "EnqueuedP3MessagesPersec:" & objItem.EnqueuedP3MessagesPersec
	WScript.Echo "EnqueuedP4MessagesPersec:" & objItem.EnqueuedP4MessagesPersec
	WScript.Echo "EnqueuedP5MessagesPersec:" & objItem.EnqueuedP5MessagesPersec
	WScript.Echo "EnqueuedP6MessagesPersec:" & objItem.EnqueuedP6MessagesPersec
	WScript.Echo "EnqueuedP7MessagesPersec:" & objItem.EnqueuedP7MessagesPersec
	WScript.Echo "EnqueuedP8MessagesPersec:" & objItem.EnqueuedP8MessagesPersec
	WScript.Echo "EnqueuedP9MessagesPersec:" & objItem.EnqueuedP9MessagesPersec
	WScript.Echo "EnqueuedTransmissionQMsgsPersec:" & objItem.EnqueuedTransmissionQMsgsPersec
	WScript.Echo "EnqueuedTransportMsgFragsPersec:" & objItem.EnqueuedTransportMsgFragsPersec
	WScript.Echo "EnqueuedTransportMsgFragTot:" & objItem.EnqueuedTransportMsgFragTot
	WScript.Echo "EnqueuedTransportMsgsPersec:" & objItem.EnqueuedTransportMsgsPersec
	WScript.Echo "EnqueuedTransportMsgsTotal:" & objItem.EnqueuedTransportMsgsTotal
	WScript.Echo "ForwardedMessagesPersec:" & objItem.ForwardedMessagesPersec
	WScript.Echo "ForwardedMessagesTotal:" & objItem.ForwardedMessagesTotal
	WScript.Echo "ForwardedMsgBytesPersec:" & objItem.ForwardedMsgBytesPersec
	WScript.Echo "ForwardedMsgByteTotal:" & objItem.ForwardedMsgByteTotal
	WScript.Echo "ForwardedMsgDiscardedTotal:" & objItem.ForwardedMsgDiscardedTotal
	WScript.Echo "ForwardedMsgsDiscardedPersec:" & objItem.ForwardedMsgsDiscardedPersec
	WScript.Echo "ForwardedPendingMsgBytes:" & objItem.ForwardedPendingMsgBytes
	WScript.Echo "ForwardedPendingMsgCount:" & objItem.ForwardedPendingMsgCount
	WScript.Echo "Frequency_Object:" & objItem.Frequency_Object
	WScript.Echo "Frequency_PerfTime:" & objItem.Frequency_PerfTime
	WScript.Echo "Frequency_Sys100NS:" & objItem.Frequency_Sys100NS
	WScript.Echo "Name:" & objItem.Name
	WScript.Echo "SQLRECEIVEsPersec:" & objItem.SQLRECEIVEsPersec
	WScript.Echo "SQLRECEIVETotal:" & objItem.SQLRECEIVETotal
	WScript.Echo "SQLSENDsPersec:" & objItem.SQLSENDsPersec
	WScript.Echo "SQLSENDTotal:" & objItem.SQLSENDTotal
	WScript.Echo "Timestamp_Object:" & objItem.Timestamp_Object
	WScript.Echo "Timestamp_PerfTime:" & objItem.Timestamp_PerfTime
	WScript.Echo "Timestamp_Sys100NS:" & objItem.Timestamp_Sys100NS
	WScript.Echo ""
	WScript.Echo "########"
	WScript.Echo ""
Next