Thanks For your Quick Reply
I am studying your code.
To begin with, I do not know if it's a mistake, but I replaced this
Code:
Select All
Sub seekGrp(groups)
Set objG = GetObject("LDAP:\\cn=" & groups & ",DC=...")
by
Code:
Select All
Sub seekGrp(groupe)
Set objG = GetObject("LDAP://"& groups)
as group returns a value of this type = CN = name of the group, OR = xxx, xxx OR = DC = foo, DC = lan
Once this change of fact, when I come to the second loop, I get an error:
Error: This object is not a collection
Code: 800A01C3
And here I do not know how to solve this problem.
Bookmarks