Thread Net::LDAP Verbindung zum LDAP Server kann nicht mehr hergestellt werden (1 answers)
Opened by hurr1c4n at 2013-02-18 15:27

Gast hurr1c4n
 2013-02-18 15:27
#165866 #165866
Hallo,

habe folgendes Problem bei meinem Script, womit ich aus der ActiveDirectory Daten auslesen möchte.
Das Script hat bisher sehr gut funktioniert bis zu dem Tag an dem ich die Updates von Ubuntu eingespielt habe. Leider kann ich nicht mehr sagen welches Update es war, aber es muss ja eines gewesen sein, was entweder direkt mit Perl zu tun hat oder aber mit einem Modul welches zum Verdindungsaufbau benötigt wird.

Hier der Output des Scriptes:
Code (perl): (dl )
1
2
3
ERROR detected: -> LDAP_ENCODING_ERROR C<Net::LDAP> encountered an error while encoding the request packet that would
have been sent to the server
ERROR - not LDAP_SUCCESS at ./ldap_group.pl line 34, <DATA> line 774.


Das eingesetzte Script:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/perl

use warnings;
use strict;
use Net::LDAP;
use Net::LDAP::Util qw(ldap_error_text ldap_error_name);

# Uses AD Account
my $account = 'MYACCOUNT';
my $pwd = 'PASSWORT';

# Bind to LDAP
my $ad = Net::LDAP->new("ldap://SERVER.DOMAIN") or die ("Could not connet to LDAP server.");
$ad->bind( $account, password => $pwd, version => 3 );

my $base = "DC=DOMAIN";
my $filter = '(&(objectCategory=Group)(objectClass=group))';
my $attrs = "sAMAccountName, cn, displayName, mail, whenCreated, whenChanged, member, distinguishedName";

# Generate the search
my $results = $ad->search(base=>$base,filter=>$filter,attrs=>$attrs);

# Check if search has errors
if ($results->code) {
   print "ERROR detected: -> ",
   ldap_error_name($results->code), " ",
   ldap_error_text($results->code);
   warn "ERROR - not LDAP_SUCCESS";
}

my $count = $results->count;

print "DEBUG: ".$count."\n";

$ad->unbind;


Im Internet kann ich bzgl. dieser LDAP Fehlermeldung nichts finden. Entweder hat diesen Fehler noch niemand gehabt, oder aber ich sehe nicht mehr gut.

Evtl. kann jemand hier aus dem Forum mit der Ausgabe etwas anfangen.
Wie gesagt, das Script hat sonst wunderbar funktioniert.

Vielen Dank schonmal.

Gruß
Thomas

View full thread Net::LDAP Verbindung zum LDAP Server kann nicht mehr hergestellt werden