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
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