perl net:ldap嵌套OU查询报错

yuliu1212

我发现如果将$LDAP_BASE再多写一层OU就可以了，如：$LDAP_BASE = 'OU=BB,OU=Aaa,DC=internal,DC=aaa,DC=com';
是否能是这两个原因之一：
1、再上一层OU=Aaa下查询出的人过多（2W多），所以改成BB时就可以了
2、只能查询一层OU。但是我已经scope => 'sub'了

求高手给分析下原因
# LDAP server
my $LDAP_BASE = 'OU=Aaa,DC=internal,DC=aaa,DC=com';   # LDAP search base
my $LDAP_SERVER = 'xxx-yyy.zzz.aaa.com';
my $LDAP_DN = 'readonly';
my $LDAP_PASSWORD = 'passwd';
my $filter = "(&(objectClass=person))";


# connect to LDAP server
my $ldap = Net::LDAP->new($LDAP_SERVER, onerror => \&sendMail);
if (!defined($ldap)) {
    &sendMail("Failed to connect to LDAP Server [$LDAP_SERVER]");
}


# bind account
my $result = $ldap->bind($LDAP_DN, password => $LDAP_PASSWORD);
if ($result->code()) {
    &sendMail("AD bind failed");
}

#调试脚本是在这里停了
# get account information
$result = $ldap->search(
    base => $LDAP_BASE,
    scope => 'sub',             # entire tree
    timelimit => 600,
    filter => $filter,
    attrs => ['sAMAccountName','mail'],
    );

给出的异常是Net::LDAP::Search=HASH(0xaba3d0)这种。

ttt4011

根据提示，应该是你后面在用$result时错了，看下后面的。

yuliu1212

    if ($result->code()) {          # failed
        &sendMail("Could not get the account info!");
    }   

ttt4011 发表于 2013-09-12 20:13
根据提示，应该是你后面在用$result时错了，看下后面的。

yuliu1212

再然后是这个，然后就没用到$result了
# open log
    open(LOG, ">>", $logfile) || &sendMail("failed to create log file");
   
    print LOG '#' x 20 . "\n";
    print LOG "# AD $OU_array[$i] users" . "\n";
    print LOG '#' x 20 . "\n";
   
    my %adusers;
    while (my $entry = $result->shift_entry) {
        my $sam = $entry->get_value('sAMAccountName');
        my $mail = $entry->get_value('mail');
        if (!defined($sam) || $sam eq "") {
            next;
        }   
        if (!defined($mail) || $mail eq "") {
            next;
        }   
        if ($sam !~ /^[a-zA-Z0-9._-]+$/) {
            next;
        }

        print LOG $sam . ", " . $mail . "\n";

        my $user = [];
        @{$user}[0] = $sam;
        @{$user}[1] = $mail;
        $adusers{$sam} = $user;
        $adcounter++;
    }

    close(LOG);

    $ldap->unbind(dn => $LDAP_DN, password => $LDAP_PASSWORD);

ttt4011 发表于 2013-09-12 20:13
根据提示，应该是你后面在用$result时错了，看下后面的。

ttt4011

代码没发现什么问题，你可以看下ldap服务器的日志，看那里面有什么提示没。回复 4# yuliu1212


   

py

回复 1# yuliu1212

1. 在你提到的“1”中。如果是这样，你的$ldap->search是能看到提示的。
2. 在你提到的“2”中，不知道是你写错了还是你理解错了。scope你写sub就是会出来很多结果，改成base
3. “#调试脚本是在这里停了”。程序不会在这里停。。。唯一可能的就是$ldap->search这里，$ldap->search有没有结果？读结果看看http://search.cpan.org/~marschap ... Net/LDAP/Search.pod
4. 调试LDAP的程序要排除环境因素，LDAP服务器的设置直接影响你的结果。在写程序之前，一定要先用ldapsearch