On Error Resume Next strComputer = "." Set objWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set Items = objWMI.ExecQuery("Select * from Win32_NTDomain") For Each objItem in Items DName = objItem.DomainName CSName = objItem.ClientSiteName DcSName = objItem.DcSiteName DNSFName = objItem.DnsForestName DContAddr = objItem.DomainControllerAddress DCAddressType = objItem.DomainControllerAddressType Flag1 = objItem.DSDnsControllerFlag Flag2 = objItem.DSDirectoryServiceFlag Flag3 = objItem.DSDnsDomainFlag Flag4 = objItem.DSDnsForestFlag Flag5 = objItem.DSGlobalCatalogFlag Next Select Case DCAddressType Case 1 DCAType = "DNS_INET_ADDRESS" Case 2 DCAType = "DNS_NETBIOS_ADDRESS" End Select ResultStatus = "DomainName is " & DName & vbcrlf & _ "DNS Forest Name is " & DNSFName & vbcrlf & _ "Domain Controller Address is " & DContAddr & vbcrlf & _ "Domain Controller Address Type is " & DCAType & vbcrlf & _ "Client Site Name is " & CSName & vbcrlf & _ "DC Site Name is " & DcSName & vbcrlf & _ "DS DNS Controller Flag is " & Flag1 & vbcrlf & _ "DS Directory Service Flag is " & Flag2 & vbcrlf & _ "DS DNS Domain Flag is " & Flag3 & vbcrlf & _ "DS DNS Forest Flag is " & Flag4 & vbcrlf & _ "DS Global Catalog Flag is " & Flag5 if err.number<>0 then WScript.Echo ("Script Check Failed") Wscript.Quit 1001 else Wscript.Echo ResultStatus WScript.Echo ("Script Check Passed") Wscript.Quit 0 end if