Win32_NTDomain vbscript sample code

The foundations for Manageability in Windows is 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. The Win32_NTDomain WMI class can be used in ActiveXperts Network Monitor to monitor your servers.

---

Sample Code

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain",,48)
For Each objItem in colItems
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "ClientSiteName: " & objItem.ClientSiteName
    Wscript.Echo "CreationClassName: " & objItem.CreationClassName
    Wscript.Echo "DcSiteName: " & objItem.DcSiteName
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "DnsForestName: " & objItem.DnsForestName
    Wscript.Echo "DomainControllerAddress: " & objItem.DomainControllerAddress
    Wscript.Echo "DomainControllerAddressType: " & objItem.DomainControllerAddressType
    Wscript.Echo "DomainControllerName: " & objItem.DomainControllerName
    Wscript.Echo "DomainGuid: " & objItem.DomainGuid
    Wscript.Echo "DomainName: " & objItem.DomainName
    Wscript.Echo "DSDirectoryServiceFlag: " & objItem.DSDirectoryServiceFlag
    Wscript.Echo "DSDnsControllerFlag: " & objItem.DSDnsControllerFlag
    Wscript.Echo "DSDnsDomainFlag: " & objItem.DSDnsDomainFlag
    Wscript.Echo "DSDnsForestFlag: " & objItem.DSDnsForestFlag
    Wscript.Echo "DSGlobalCatalogFlag: " & objItem.DSGlobalCatalogFlag
    Wscript.Echo "DSKerberosDistributionCenterFlag: " & objItem.DSKerberosDistributionCenterFlag
    Wscript.Echo "DSPrimaryDomainControllerFlag: " & objItem.DSPrimaryDomainControllerFlag
    Wscript.Echo "DSTimeServiceFlag: " & objItem.DSTimeServiceFlag
    Wscript.Echo "DSWritableFlag: " & objItem.DSWritableFlag
    Wscript.Echo "InstallDate: " & objItem.InstallDate
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "NameFormat: " & objItem.NameFormat
    Wscript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
    Wscript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
    Wscript.Echo "Roles: " & objItem.Roles
    Wscript.Echo "Status: " & objItem.Status
Next