Question : VBA LDAP Query to retrieve all members of a group in active directory

Hi experts,

I need to retrieve all members of a group through VBA in Excel.
I can find all users with the code attached.
But I don't know how to retrieve only users from a particular group.
I've tried adding "memberOf='cn=SPC'" in the where clause (SPC is one of the existing group) but I get no records.
The AdsPath of the group is CN=SPC,OU=SPC,OU=Web ( Site ),OU=Applications,OU=Collaborations,DC=hq,DC=intra

Thanks
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
Const ADS_SCOPE_SUBTREE = 2

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand = CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection
    objCommand.CommandText = "SELECT mail,sAMAccountName,displayName,showInAddressBook, ADsPath FROM 'LDAP://ou=Organisations,dc=HQ,dc=intra' WHERE objectCategory='user'"
    objCommand.Properties("Page Size") = 2000
    objCommand.Properties("Sort On") = "displayName"
    Set objRecordSet = objCommand.Execute

Answer : VBA LDAP Query to retrieve all members of a group in active directory

Random Solutions  
 
programming4us programming4us