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.
October 20, 2009 5:37 PM
October 20, 2009 8:52 PM