Accessing and Manipulating Data with ADSI provides several examples of enumeration. You can also enumerate the children of container objects. These children are objects themselves, rather than just properties on objects.
The following example uses the IADsContainer interface to enumerate the children of the container.
Dim Container as IADsContainer Dim Child as IADs Set Container = GetObject("LDAP://MyServer/DC=MyDomain,DC=Fabrikam,DC=com") For Each Child in Container Debug.Print Child.Name Next Child