I am trying to pull the list of all users in a specified group. I have been able to query all of the groups like this:

strUsername = Right(strUsername, Len(strUsername) - InStrRev(strUsername, ""))

Set objDomain = GetObject("GC://rootDSE")

objADsPath = objDomain.Get("defaultNamingContext")

Set objDomain = Nothing

Set con = CreateObject("ADODB.Connection")

con.Provider = "ADsDSOObject"

con.Open "Active Directory Provider"

Set com = CreateObject("ADODB.Command")

Set com.ActiveConnection = con

com.CommandText = "SELECT ADsPath, Name FROM 'LDAP://" & objADsPath & "' WHERE objectCategory='group' Order by Name"



Can I just change the query or something? I have searched and nothing seems to be working, but I know it should be easy.