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

Do any of these help? Doesn't sound like it's a one query thing, but rather looping through results sets gathering users.

http://serverfault.com/questions/18018/whats-the-ad-query-syntax-to-enumerate-all-users-for-a-particular-group

http://www.afp548.com/forum/viewtopic.php?showtopic=25539

http://www.office-outlook.com/outlook-forum/index.php/m/543897/#msg_543897