ADO, LDAP default 1000 records??

[DinoVaught]

Does anyone know how to get around the default 1000 records (limitation) that are returned when doing LDAP queries? The code below only returns 1000 records. Records consisting of network login IDs and other information. There are well over 1000 login ids but the server only sends the first 1000. There is some sort of MaxPageSize attribute that is set to 1000 but I have no idea how to change it or get the full list of records from our LDAP server. If possible I need to know how go get around this from within VB. . . Anyone have any ideas?

This sample code requires a reference to
<Active DS Type Library>
and
<Microsoft ActiveX Data Objects 2.x Library>

Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rsLogins As ADODB.Recordset
Dim oRoot As IADs
Dim oDomain As IADs
Dim sBase As String
Dim sFilter As String
Dim sDomain As String
Dim sAttribs As String
Dim sDepth As String
Dim sQuery As String

    On Error GoTo GetLoginIDsErrHandler
    Set cnn = New ADODB.Connection
    
    Set oRoot = GetObject("LDAP://rootDSE")
    sDomain = oRoot.Get("defaultNamingContext")
    Set oDomain = GetObject("LDAP://" & sDomain)
    sBase = "<" & oDomain.ADsPath & ">"
    sFilter = "(&(objectCategory=person)(objectClass=user))"
    sAttribs = "distinguishedName"
    sDepth = "subTree"
    
    sQuery = sBase & ";" & sFilter & ";" & sAttribs & ";" & sDepth
    cnn.Open "Data Source=Active Directory Provider;Provider=ADsDSOObject"
   
    Set rsLogins = cnn.Execute(sQuery)
    rsLogins.MoveLast
    MsgBox rsLogins.RecordCount

GetLoginIDsExitPoint:
    On Error Resume Next
    
    cnn.Close
    rsLogins.Close
    Set rsLogins = Nothing
    Set cnn = Nothing
    Set oRoot = Nothing
    Set oDomain = Nothing
    
    Exit Sub
GetLoginIDsErrHandler:
    Select Case Err.Number
        Case Else
            MsgBox "Error in blah " & vbCrLf & vbCrLf & Err.Description, vbOKOnly + vbExclamation
            Resume GetLoginIDsExitPoint
    
    End Select

End Sub

[dglienna]

Let the tool write for you:

http://www.microsoft.com/downloads/d...displaylang=en