Retrieves information about domains discovered on the network.
On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")For Each objItem in colItemsWscript.Echo "Client Site Name: " & objItem.ClientSiteNameWscript.Echo "DC Site Name: " & objItem.DcSiteNameWscript.Echo "Description: " & objItem.DescriptionWscript.Echo "Dns Forest Name: " & objItem.DnsForestNameWscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddressWscript.Echo "Domain Controller Address Type: " & _objItem.DomainControllerAddressTypeWscript.Echo "Domain Controller Name: " & objItem.DomainControllerNameWscript.Echo "Domain Guid: " & objItem.DomainGuidWscript.Echo "Domain Name: " & objItem.DomainNameWscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlagWscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlagWscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlagWscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlagWscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlagWscript.Echo "DS Kerberos Distribution Center Flag: " & _objItem.DSKerberosDistributionCenterFlagWscript.Echo "DS Primary Domain Controller Flag: " & _objItem.DSPrimaryDomainControllerFlagWscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlagWscript.Echo "DS Writable Flag: " & objItem.DSWritableFlagWscript.Echo "Name: " & objItem.NameWscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContactWscript.EchoNext
This is a VB Script, this can be used by saving the file in .vbs file