Set oDomain = GetObject(?LDAP://dc=acme,dc=com?)
Set oUser = GetObject(?LDAP://cn=Judy Schneider,? & _
	?ou=finance,dc=acme,dc=com?)
Set oRoot = GetObject(?LDAP:?)
For Each obj In oRoot
	Set oDomain = GetObject(obj.ADsPath)
Next

Поделитесь материалом с коллегами и друзьями