Enumerazione
L'accesso e la modifica dei dati con ADSI offrono diversi esempi di enumerazione. È anche possibile enumerare gli elementi figlio degli oggetti contenitore. Questi elementi figlio sono oggetti stessi, anziché solo proprietà sugli oggetti.
Nell'esempio seguente viene usata l'interfaccia IADsContainer per enumerare gli elementi figlio del contenitore.
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