Как и этот вопрос, я пытаюсь выполнить простую аутентификацию в Active Directory 2003 с помощью python ldap (CentOS 6.2 x86_64, Python 2.6.6, python-ldap 2.3.10).
Несмотря на следующие обычные шаги в init, включая
conn.set_option(ldap.OPT_REFERRALS, 0)
Если я передаю правильные учетные данные, я всегда получаю возвращаемый (97, [])
:
>>> import ldap
>>> conn = ldap.initialize('ldap://ad.server.domain.com')
>>> conn.protocol_version = 3
>>> conn.set_option(ldap.OPT_REFERRALS, 0)
>>> conn.simple_bind_s('[email protected]', 'WrongPassword')
ldap.INVALID_CREDENTIALS: {'info': '80090308: LdapErr: DSID-0C090334, comment: AcceptSecurityContext error, data 52e, vece', 'desc': 'Invalid credentials'}
>>> conn.simple_bind_s('[email protected]', 'CorrectPassword')
(97, [])
Код ошибки 97 не увенчался успехом; это ошибка LDAP_REFERRAL_LIMIT_EXCEEDED
, возвращаемая из AD. Я также не могу использовать его как индикатор де-факто успеха, потому что:
>>> conn.simple_bind_s('', 'CorrectPassword')
(97, [])
>>> conn.simple_bind_s('', '')
(97, [])
Еще более неприятно то, что этот script является переносом из старого Perl script с использованием Net:: LDAP, который возвращает 0 для успешного аутентифицированного связывания с тем же AD и сервером.
Вся информация, которую я могу найти на python-ldap, указывает, что то, что я делаю, должно просто работать; Я был бы склонен думать, что с серверами AD что-то не так, но Perl script возвращает правильный код LDAP при успешном связывании.
Я тестировал python-ldap 2.2.0 и python 2.4.4 на старом ящике CentOS 5.5, в котором я лежал, и он "терпит неудачу" точно так же.
Кто-нибудь знает, что мне не хватает?
EDIT: По запросу здесь работает Perl script. Net::LDAP
возвращает код возврата с сервера LDAP, а сервер AD возвращает 0x00, "Успешный запрос", AFAICT.
#!/usr/bin/perl -w
use strict;
use Net::LDAP;
## Corporate subdomains
my @domains = ("americas", "asia", "europe");
# AD connect timeout
my $timeout = 10;
# Set AD server info.
my $port = "389";
my $host = "server.domain.com";
my $user = shift @ARGV;
chomp $user;
my $password = <STDIN>;
$password =~ s/\r\n//;
chomp $password;
my $ldap = Net::LDAP->new($host, port => $port, timeout => $timeout ) ||
die "Unable to connect to LDAP server";
my $bind_return = 1;
foreach (@domains) {
my $result = $ldap->bind( "$user\@$_.domain.com", password => $password );
if( $result->code == 0) {
$bind_return = 0;
last;
}
}
## Unbind and return
$ldap->unbind;
if ($bind_return) { print "Authentication Failed. Access Denied\n" }
exit $bind_return;