Retrieving an Existing Domain

Dim Domain As IADsDomain
'Bind to the known domain.
'Here DomainName is your domain name.
Set Domain = GetObject("NTDS://DomainName")
Debug.Print Domain.Name
Debug.Print Domain.ADsPath