Wyliczenie

uzyskiwanie dostępu do danych i manipulowanie nimi za pomocą interfejsu ADSI zawiera kilka przykładów wyliczenia. Można również wyliczyć elementy podrzędne obiektów kontenera. Te elementy podrzędne są obiektami, a nie tylko właściwościami obiektów.

W poniższym przykładzie użyto interfejsu IADsContainer w celu wyliczenia elementów podrzędnych kontenera.

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