Array Limit

[Striker3070]

I Am using the following that I found somewhere to get the members in an
Active Directory group and populate a spreadsheet with the names. Problem is
it always returns 1500 names. even if I know there are 1600 people in this
group. Is the array limited in size, or is the LDAP query limited in it's
return?

Thanks


Sub ADGroupMembers()
Dim arrNames()
intSize = 0

'Let's clear the range first
Range("SCREEN").ClearContents

'Get the AD Group Info for BATY-SESCREEN
Set objGroup = GetObject("LDAP://CN= BATY-SESCREEN,OU=Security
Groups,DC=baty,DC=com")

'Getting User Names and increase the array size
For Each strUser In objGroup.Member
Set objuser = GetObject("LDAP://" & strUser)
ReDim Preserve arrNames(intSize)
arrNames(intSize) = objuser.CN
intSize = intSize + 1
Next

'In order to sort, we have to convert to Uppercase.
For i = (UBound(arrNames) - 1) To 0 Step -1
For j = 0 To i
If UCase(arrNames(j)) > UCase(arrNames(j + 1)) Then
strHolder = arrNames(j + 1)
arrNames(j + 1) = arrNames(j)
arrNames(j) = strHolder
End If
Next
Next

'Fill the SESCREEN range with the array values
Range("SESCREEN").Value = WorksheetFunction.Transpose(arrNames)

End Sub

 

[joel]

Usually collection have a length property. Rather than keep on redi
the array size in a loop get the length property and redim only once
befor you read the data.

I'm not sure if this is going to work. What you should do is to add a
a watch item : objGroup. Highlight the variable with the mouse an
right click. select Watch. Then step through the code using F8. whe
you step pass the Getobject statement the wath item will contain dat
and you can look at the object : objGroup.Member. Look at the prpertie
and see if it contains the 1600 items you are expecting.


Sub ADGroupMembers()
Dim arrNames()
intSize = 0

'Let's clear the range first
Range("SCREEN").ClearContents

'Get the AD Group Info for BATY-SESCREEN
Set objGroup = GetObject("LDAP://CN= BATY-SESCREEN,OU=Security
Groups,DC=baty,DC=com")

'Getting User Names and increase the array size
objlength = objGroup.Member.length
ReDim Preserve arrNames(objlength)
For Each strUser In objGroup.Member
Set objuser = GetObject("LDAP://" & strUser)
arrNames(intSize) = objuser.CN
intSize = intSize + 1
Next

'In order to sort, we have to convert to Uppercase.
For i = (UBound(arrNames) - 1) To 0 Step -1
For j = 0 To i
If UCase(arrNames(j)) > UCase(arrNames(j + 1)) Then
strHolder = arrNames(j + 1)
arrNames(j + 1) = arrNames(j)
arrNames(j) = strHolder
End If
Next
Next

'Fill the SESCREEN range with the array values
Range("SESCREEN").Value = WorksheetFunction.Transpose(arrNames)

End Sub

 

[Striker3070]

It contains 1499 members from the get go. However I still don't know if the
issue is the array, or the LDAP query. Somewhere there must be a size limit
as I know there at least 1600 members of the AD group. I also added people
to the group, and it still came up with 1499.

 

[joel]

I think the problem is with the query or the database. Have you checke
the database to see if there is any empty rows in the database? Mayb
delete the 1500 entry which may be empty. Often excel will stop at a
empty row.

Excel will use the ID column of the database. sometimes the ID colum
is numerical and other times it can be an alphabetical string. I
either case the ID column must be unique. A duplicate entry in the I
column could cause problems. If the ID column is numerical it should b
in increasing order. I don't think it matters if a number is skippe
because often an entry in a databae will be deleted.

I don't think the problem is with the arry and I know I've seen querie
where more than 1500 entries are returned.

 

[Striker3070]

well I have exported with another utility, and there is nothing wrong with
any of the records. The names can be identical, there can be more than one
Bill Smith in the AD group. However the username is unique. I'm not
returning the user name however. I don't see why the array could not have
two Bill Smith's in it.