列挙

ADSIを使用したデータのアクセスと操作には、列挙の例がいくつか用意されています。 コンテナーオブジェクトの子を列挙することもできます。 これらの子は、オブジェクトの単なるプロパティではなく、オブジェクト自体です。

次の例では、IADsContainerインターフェイスを使用して、コンテナーの子を列挙します。

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