Community  »  Rund um das Thema Datenbank

ActiveDirectory Abfrage	Seitenanfang
Hi Zusammen Ich würde gerne mittels perlscript die E-mail adressen aller AD-Benutzer auslesen. Hier das script das ich habe: #!/usr/bin/perl -w use strict; use Net::LDAP; #,debug=>2 my $ad = Net::LDAP->new("192.168.2.254",debug=>2) or die "$@"; $ad->bind("Administrator\@hive.loc",password=>'ScheissegaL2'); my $searchbase = 'OU=Benutzer,OU=HIVE,DC=hive,DC=loc'; my $filter = "memberof=*"; my $attrs = "proxyAddresses"; my $result = $ad->search(base=>$searchbase,filter=>$filter,attrs=>$attrs); my $count = $result->count; if ($count < 1) { print $result->error."\n"; } else { print $count." Entries found\n"; my $entry; foreach $entry ($result->entries) { foreach my $mail ($entry->get_value("proxyAddresses")) { print $mail."\n"; } } } $ad->unbind; Das Problem, ich bekomm zwar eine E-Mailadresse zurück, aber nur eine. Und Immer vom gleichen Benutzer. Kann mir da Jemand von euch helfen ?? Danke Datum: 03.01.2009-14:43
re: ActiveDirectory Abfrage	Seitenanfang
was gibt denn das print $count." Entries found\n"; zurück? Auch nur 1? Datum: 13.01.2009-14:55
re: ActiveDirectory Abfrage	Seitenanfang
Ich denke ja... Ich habs nicht ausprobiert da ich den fehler mittlerweile selber gefunden habe :) Das Problem war der filter: my $filter = "memberof=*"; So wie ich das interpretiere heisst das, egal in welcher Gruppe der Benutzer ist.... Leider ist dem nicht so. Die Benutzer wahren alle in der Gruppe "Domain users" mit ausnahem des einen Users welchen ich immer als ausgabe erhalten habe. Erst wenn man die Benutzer einer zweiten gruppe hinzufügte erschien er in der Abfrage. Ich habe jetzt den filter geändert auf: my $filter = "userPrincipalName=*"; Jetzt erhalte ich alle Addressen Datum: 13.01.2009-19:31