Enumerating Users in a Domain

Dim DomainContainer  As IADsContainer
Dim NewUser    As IADsUser
'Bind to the known container.
'Here DomainName is your domain name.
Set DomainContainer = GetObject("NTDS://DomainName")
'Set the filter to enumerate Users
DomainContainer.Filter = "User"
'Enumerate all Users in the domain
For Each NewUser In DomainContainer
 Debug.Print NewUser.Name
 Debug.Print NewUser.FullName
Next NewUser