[Resolvido]Nome do Controlador de Domínio

Código:


Domínio Exemplo Microsoft®: contoso.corp.com
Exemplo do IP Fixo Interno: 10.15.0.1



Sub fncInfoDominio()
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

For Each objItem In colItems
   Debug.Print "Client Site Name: " & objItem.ClientSiteName
   Debug.Print "DC Site Name: " & objItem.DcSiteName
   Debug.Print "Description: " & objItem.Description
   Debug.Print "DNS Forest Name: " & objItem.DnsForestName
   Debug.Print "Domain Controller Address: " & objItem.DomainControllerAddress
   Debug.Print "Domain Controller Address Type: " & objItem.DomainControllerAddressType
   Debug.Print "Domain Controller Name: " & objItem.DomainControllerName
   Debug.Print "Domain GUID: " & objItem.DomainGuid
   Debug.Print "Domain Name: " & objItem.DomainName
   Debug.Print "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
   Debug.Print "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
   Debug.Print "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
   Debug.Print "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
   Debug.Print "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
   Debug.Print "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
   Debug.Print "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
   Debug.Print "DS Time Service Flag: " & objItem.DSTimeServiceFlag
   Debug.Print "DS Writable Flag: " & objItem.DSWritableFlag
   Debug.Print "Name: " & objItem.Name
   Debug.Print "Primary Owner Contact: " & objItem.PrimaryOwnerContact
   Debug.Print
Next
End Sub