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