Enumerazione

Accesso e modifica dei dati con ADSI fornisce 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'interfacciaIADsContainerper 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