Increase limit from 1000?

前端 未结 3 1505
孤街浪徒
孤街浪徒 2021-02-11 04:43

When I do a search like so

my $mesg = $ldap->search(
  base   => \"OU=test,DC=example,DC=com\",
  scope  => \'one\',
  filter => \'(objectClass=organ         


        
相关标签:
3条回答
  • 2021-02-11 04:58

    You don't specify the module that you are using to ldap search. By the way 'sizelimit' key can be used to it but by default it is not limited. This can be a server side limit configuration.

    0 讨论(0)
  • 2021-02-11 05:02

    AD by default set the maximum page size to 1000. The client will receive the first 1000 result and also an receive an error "Size Limit Exceeded".

    To avoid this the client has to use paged control, if the paged control is used the server will not return error but instead it will send a cookie (a byte) to indicate there is some more result available. If there is no cookie available which means no more result. So you can continue looping for the result until cookie is null.

    You can also modify MaxPageSize in the server if you want, start ntdsutil and type the following,

    ldap policies 
    connections 
    connect to server servername.domain.name 
    q 
    set maxpagesize to 5000 
    commit 
    changes 
    q 
    q
    

    This is mostly done if the client does not support paging and the client can not be modified.

    0 讨论(0)
  • 2021-02-11 05:22

    The solution is to use paged search like so

    use Net::LDAP;
    use Net::LDAP::Control::Paged;
    use Net::LDAP::Constant qw( LDAP_CONTROL_PAGED );
    
    my $page = Net::LDAP::Control::Paged->new(size => 999);
    my $cookie;
    
    while (1) {
        $mesg = $ldap->search(
        base    => "OU=test,DC=example,DC=com",
        scope   => 'one',
        filter  => '(objectClass=organizationalPerson)',
        attrs   => ['distinguishedName', 'displayName', 'sAMAccountName', 'employeeID'],
        control => [$page]
        );
    
        $mesg->code && die "Error on search: $@ : " . $mesg->error;
        while (my $adentry = $mesg->pop_entry()) {
    
        # process $adentry
        }
    
        my ($resp) = $mesg->control(LDAP_CONTROL_PAGED) or last;
        $cookie    = $resp->cookie or last;
        # Paging Control
        $page->cookie($cookie);
    }
    
    if ($cookie) {
        print "abnormal exit\n";
        # Abnormal exit, so let the server know we do not want any more
        $page->cookie($cookie);
        $page->size(0);
        $ldap->search(control => [$page]);
    }
    
    0 讨论(0)
提交回复
热议问题