Directory Services


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 and enumerates the children of the container.

Dim MyObject as IADs
Dim Child as IADs
Dim Container as IADsContainer
On Error Resume Next
Set MyObject = GetObject("LDAP://MyServer/DC=MyDomain,DC=Fabrikam,DC=com")
Set Container = MyObject
If Err = 0 Then
	For Each Child in Container
		Debug.Print Child.Name
	Next Child