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

---

DNS

Example(s)

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

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

For Each objItem in colItems
	WScript.Echo "AXFRRequestReceived:" & objItem.AXFRRequestReceived
	WScript.Echo "AXFRRequestSent:" & objItem.AXFRRequestSent
	WScript.Echo "AXFRResponseReceived:" & objItem.AXFRResponseReceived
	WScript.Echo "AXFRSuccessReceived:" & objItem.AXFRSuccessReceived
	WScript.Echo "AXFRSuccessSent:" & objItem.AXFRSuccessSent
	WScript.Echo "CachingMemory:" & objItem.CachingMemory
	WScript.Echo "Caption:" & objItem.Caption
	WScript.Echo "DatabaseNodeMemory:" & objItem.DatabaseNodeMemory
	WScript.Echo "Description:" & objItem.Description
	WScript.Echo "DynamicUpdateNoOperation:" & objItem.DynamicUpdateNoOperation
	WScript.Echo "DynamicUpdateNoOperationPersec:" & objItem.DynamicUpdateNoOperationPersec
	WScript.Echo "DynamicUpdateQueued:" & objItem.DynamicUpdateQueued
	WScript.Echo "DynamicUpdateReceived:" & objItem.DynamicUpdateReceived
	WScript.Echo "DynamicUpdateReceivedPersec:" & objItem.DynamicUpdateReceivedPersec
	WScript.Echo "DynamicUpdateRejected:" & objItem.DynamicUpdateRejected
	WScript.Echo "DynamicUpdateTimeOuts:" & objItem.DynamicUpdateTimeOuts
	WScript.Echo "DynamicUpdateWrittentoDatabase:" & objItem.DynamicUpdateWrittentoDatabase
	WScript.Echo "DynamicUpdateWrittentoDatabasePersec:" & objItem.DynamicUpdateWrittentoDatabasePersec
	WScript.Echo "Frequency_Object:" & objItem.Frequency_Object
	WScript.Echo "Frequency_PerfTime:" & objItem.Frequency_PerfTime
	WScript.Echo "Frequency_Sys100NS:" & objItem.Frequency_Sys100NS
	WScript.Echo "IXFRRequestReceived:" & objItem.IXFRRequestReceived
	WScript.Echo "IXFRRequestSent:" & objItem.IXFRRequestSent
	WScript.Echo "IXFRResponseReceived:" & objItem.IXFRResponseReceived
	WScript.Echo "IXFRSuccessReceived:" & objItem.IXFRSuccessReceived
	WScript.Echo "IXFRSuccessSent:" & objItem.IXFRSuccessSent
	WScript.Echo "IXFRTCPSuccessReceived:" & objItem.IXFRTCPSuccessReceived
	WScript.Echo "IXFRUDPSuccessReceived:" & objItem.IXFRUDPSuccessReceived
	WScript.Echo "Name:" & objItem.Name
	WScript.Echo "NbstatMemory:" & objItem.NbstatMemory
	WScript.Echo "NotifyReceived:" & objItem.NotifyReceived
	WScript.Echo "NotifySent:" & objItem.NotifySent
	WScript.Echo "RecordFlowMemory:" & objItem.RecordFlowMemory
	WScript.Echo "RecursiveQueries:" & objItem.RecursiveQueries
	WScript.Echo "RecursiveQueriesPersec:" & objItem.RecursiveQueriesPersec
	WScript.Echo "RecursiveQueryFailure:" & objItem.RecursiveQueryFailure
	WScript.Echo "RecursiveQueryFailurePersec:" & objItem.RecursiveQueryFailurePersec
	WScript.Echo "RecursiveSendTimeOuts:" & objItem.RecursiveSendTimeOuts
	WScript.Echo "RecursiveTimeOutPersec:" & objItem.RecursiveTimeOutPersec
	WScript.Echo "SecureUpdateFailure:" & objItem.SecureUpdateFailure
	WScript.Echo "SecureUpdateReceived:" & objItem.SecureUpdateReceived
	WScript.Echo "SecureUpdateReceivedPersec:" & objItem.SecureUpdateReceivedPersec
	WScript.Echo "TCPMessageMemory:" & objItem.TCPMessageMemory
	WScript.Echo "TCPQueryReceived:" & objItem.TCPQueryReceived
	WScript.Echo "TCPQueryReceivedPersec:" & objItem.TCPQueryReceivedPersec
	WScript.Echo "TCPResponseSent:" & objItem.TCPResponseSent
	WScript.Echo "TCPResponseSentPersec:" & objItem.TCPResponseSentPersec
	WScript.Echo "Timestamp_Object:" & objItem.Timestamp_Object
	WScript.Echo "Timestamp_PerfTime:" & objItem.Timestamp_PerfTime
	WScript.Echo "Timestamp_Sys100NS:" & objItem.Timestamp_Sys100NS
	WScript.Echo "TotalQueryReceived:" & objItem.TotalQueryReceived
	WScript.Echo "TotalQueryReceivedPersec:" & objItem.TotalQueryReceivedPersec
	WScript.Echo "TotalResponseSent:" & objItem.TotalResponseSent
	WScript.Echo "TotalResponseSentPersec:" & objItem.TotalResponseSentPersec
	WScript.Echo "UDPMessageMemory:" & objItem.UDPMessageMemory
	WScript.Echo "UDPQueryReceived:" & objItem.UDPQueryReceived
	WScript.Echo "UDPQueryReceivedPersec:" & objItem.UDPQueryReceivedPersec
	WScript.Echo "UDPResponseSent:" & objItem.UDPResponseSent
	WScript.Echo "UDPResponseSentPersec:" & objItem.UDPResponseSentPersec
	WScript.Echo "UnmatchedResponsesReceived:" & objItem.UnmatchedResponsesReceived
	WScript.Echo "WINSLookupReceived:" & objItem.WINSLookupReceived
	WScript.Echo "WINSLookupReceivedPersec:" & objItem.WINSLookupReceivedPersec
	WScript.Echo "WINSResponseSent:" & objItem.WINSResponseSent
	WScript.Echo "WINSResponseSentPersec:" & objItem.WINSResponseSentPersec
	WScript.Echo "WINSReverseLookupReceived:" & objItem.WINSReverseLookupReceived
	WScript.Echo "WINSReverseLookupReceivedPersec:" & objItem.WINSReverseLookupReceivedPersec
	WScript.Echo "WINSReverseResponseSent:" & objItem.WINSReverseResponseSent
	WScript.Echo "WINSReverseResponseSentPersec:" & objItem.WINSReverseResponseSentPersec
	WScript.Echo "ZoneTransferFailure:" & objItem.ZoneTransferFailure
	WScript.Echo "ZoneTransferRequestReceived:" & objItem.ZoneTransferRequestReceived
	WScript.Echo "ZoneTransferSOARequestSent:" & objItem.ZoneTransferSOARequestSent
	WScript.Echo "ZoneTransferSuccess:" & objItem.ZoneTransferSuccess
	WScript.Echo ""
	WScript.Echo "########"
	WScript.Echo ""
Next