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

---

Server

Example(s)

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

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

For Each objItem in colItems
	WScript.Echo "AddressAnswerLimit:" & objItem.AddressAnswerLimit
	WScript.Echo "AllowUpdate:" & objItem.AllowUpdate
	WScript.Echo "AutoCacheUpdate:" & objItem.AutoCacheUpdate
	WScript.Echo "AutoConfigFileZones:" & objItem.AutoConfigFileZones
	WScript.Echo "BindSecondaries:" & objItem.BindSecondaries
	WScript.Echo "BootMethod:" & objItem.BootMethod
	WScript.Echo "Caption:" & objItem.Caption
	WScript.Echo "CreationClassName:" & objItem.CreationClassName
	WScript.Echo "DefaultAgingState:" & objItem.DefaultAgingState
	WScript.Echo "DefaultNoRefreshInterval:" & objItem.DefaultNoRefreshInterval
	WScript.Echo "DefaultRefreshInterval:" & objItem.DefaultRefreshInterval
	WScript.Echo "Description:" & objItem.Description
	WScript.Echo "DisableAutoReverseZones:" & objItem.DisableAutoReverseZones
	WScript.Echo "DisjointNets:" & objItem.DisjointNets
	WScript.Echo "DsAvailable:" & objItem.DsAvailable
	WScript.Echo "DsPollingInterval:" & objItem.DsPollingInterval
	WScript.Echo "DsTombstoneInterval:" & objItem.DsTombstoneInterval
	WScript.Echo "EDnsCacheTimeout:" & objItem.EDnsCacheTimeout
	WScript.Echo "EnableDirectoryPartitions:" & objItem.EnableDirectoryPartitions
	WScript.Echo "EnableDnsSec:" & objItem.EnableDnsSec
	WScript.Echo "EnableEDnsProbes:" & objItem.EnableEDnsProbes
	WScript.Echo "EventLogLevel:" & objItem.EventLogLevel
	WScript.Echo "ForwardDelegations:" & objItem.ForwardDelegations
	WScript.Echo "Forwarders:" & Join(objItem.Forwarders)
	WScript.Echo "ForwardingTimeout:" & objItem.ForwardingTimeout
	WScript.Echo "InstallDate:" & objItem.InstallDate
	WScript.Echo "IsSlave:" & objItem.IsSlave
	WScript.Echo "ListenAddresses:" & Join(objItem.ListenAddresses)
	WScript.Echo "LocalNetPriority:" & objItem.LocalNetPriority
	WScript.Echo "LogFileMaxSize:" & objItem.LogFileMaxSize
	WScript.Echo "LogFilePath:" & objItem.LogFilePath
	WScript.Echo "LogIPFilterList:" & Join(objItem.LogIPFilterList)
	WScript.Echo "LogLevel:" & objItem.LogLevel
	WScript.Echo "LooseWildcarding:" & objItem.LooseWildcarding
	WScript.Echo "MaxCacheTTL:" & objItem.MaxCacheTTL
	WScript.Echo "MaxNegativeCacheTTL:" & objItem.MaxNegativeCacheTTL
	WScript.Echo "Name:" & objItem.Name
	WScript.Echo "NameCheckFlag:" & objItem.NameCheckFlag
	WScript.Echo "NoRecursion:" & objItem.NoRecursion
	WScript.Echo "RecursionRetry:" & objItem.RecursionRetry
	WScript.Echo "RecursionTimeout:" & objItem.RecursionTimeout
	WScript.Echo "RoundRobin:" & objItem.RoundRobin
	WScript.Echo "RpcProtocol:" & objItem.RpcProtocol
	WScript.Echo "ScavengingInterval:" & objItem.ScavengingInterval
	WScript.Echo "SecureResponses:" & objItem.SecureResponses
	WScript.Echo "SendPort:" & objItem.SendPort
	WScript.Echo "ServerAddresses:" & Join(objItem.ServerAddresses)
	WScript.Echo "Started:" & objItem.Started
	WScript.Echo "StartMode:" & objItem.StartMode
	WScript.Echo "Status:" & objItem.Status
	WScript.Echo "StrictFileParsing:" & objItem.StrictFileParsing
	WScript.Echo "SystemCreationClassName:" & objItem.SystemCreationClassName
	WScript.Echo "SystemName:" & objItem.SystemName
	WScript.Echo "UpdateOptions:" & objItem.UpdateOptions
	WScript.Echo "Version:" & objItem.Version
	WScript.Echo "WriteAuthorityNS:" & objItem.WriteAuthorityNS
	WScript.Echo "XfrConnectTimeout:" & objItem.XfrConnectTimeout
	WScript.Echo ""
	WScript.Echo "########"
	WScript.Echo ""
Next