Search for subgroups within a group using ADSI
Posted on 2003-11-18
I am trying to get the groups included in another group using ADSI. In the principal group I have users and groups on it. I´m trying to get these groups included on the principal filtering the members collection, but i'm not getting the collection filtered. I'm using following code:
Dim adsgroup As ActiveDs.IADsGroup
Dim adsSubGroup As ActiveDs.IADs
Dim sFilter() As String
adsgroup = GetObject(sFormattedGroupName)
ReDim Preserve sFilter(0)
sFilter(0) = "Group"
adsMembers = adsgroup.Members
adsMembers.Filter = sFilter
For Each adsMembers In adsMembers
Can anyone tell me why this is not working?