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