Perl을 사용한 LDAP 바인드 작업

Question

LDAP 서버에 연결하려고합니다. 고객이 나에게 3 정보를 원하시면 다음 전송 : LDAP 서버의

1. IP 주소
2. 이름
3. 비밀번호 나는 다음과 같은 코드를 사용하고

:

my $ldap = Net::LDAP->new ($ip_address) or die "$@"; 

my $mesg = $ldap->bind ($username, 
         password => $password, 
           ) or die $@; 

my $result = $ldap->search(
     base => $base, 
     filter => $filter 
     attrs => \@attributes, 
     ); 

die $result->error if $result->code; 

$에서 그 결과> 오류 값 :

'000004DC : LdapErr : DSID-0C090728, 주석 :이 작업을 수행하려면 연결에서 성공적인 바인드를 완료해야합니다.

메시지에 따르면 바인드가 성공적이지 않습니다. 그러나 성공하지 못하면 죽어야합니다. 암호를 변경하고 잘못된 값을 썼다가 다시 죽지 않았습니다.

'80090308 : LdapErr : DSID-0C0903C5, 코멘트 : AcceptSecurityContext를 오류

하지만 올바른 사용자 이름과 동일

나는 다음과 같은 메시지 바인드의 반환 값이 $의 중 mesg을 쏟아 보았다 및 암호도. 사용자 이름은 'itservice'입니다.

my $mesg = $ldap->bind ('itservice', 
         password => $password, 
         ) or die $@; 

내가 다음과 같이 시도했지만 결과는 동일

my $mesg = $ldap->bind ('cn=itservice', 
          password => $password, 
          ) or die $@; 

사용자 이름이나 암호를 사용하여 다른 형식이 있습니까 : 나는 다음과 같이 사용하고 있습니다?

Answer 1

LDAP 바인드 요청에는 사용자 이름뿐만 아니라 사용자에 대한 올바른 DN이 필요합니다. 일반적으로 응용 프로그램은 먼저 userName을 검색하여 사용자 DN을 검색 한 다음 사용자로 바인딩합니다.