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

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

I'm not sure if this is going to work. What you should do is to add as
a watch item : objGroup. Highlight the variable with the mouse and
right click. select Watch. Then step through the code using F8. when
you step pass the Getobject statement the wath item will contain data
and you can look at the object : objGroup.Member. Look at the prperties
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


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=199906

http://www.thecodecage.com/forumz

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" wrote in message
...

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

I'm not sure if this is going to work. What you should do is to add as
a watch item : objGroup. Highlight the variable with the mouse and
right click. select Watch. Then step through the code using F8. when
you step pass the Getobject statement the wath item will contain data
and you can look at the object : objGroup.Member. Look at the prperties
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


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=199906

http://www.thecodecage.com/forumz

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

Excel will use the ID column of the database. sometimes the ID column
is numerical and other times it can be an alphabetical string. In
either case the ID column must be unique. A duplicate entry in the ID
column could cause problems. If the ID column is numerical it should be
in increasing order. I don't think it matters if a number is skipped
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 queries
where more than 1500 entries are returned.


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=199906

http://www.thecodecage.com/forumz

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.

"joel" wrote in message
...

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

Excel will use the ID column of the database. sometimes the ID column
is numerical and other times it can be an alphabetical string. In
either case the ID column must be unique. A duplicate entry in the ID
column could cause problems. If the ID column is numerical it should be
in increasing order. I don't think it matters if a number is skipped
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 queries
where more than 1500 entries are returned.


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=199906

http://www.thecodecage.com/forumz