• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Re: Net::LDAP, Active Directory, alle gültigen EMail Adressen finden

Helmut Schneider <jumper99@gmx.de> wrote:

> ich nutze Net::LDAP, um ein Active Directory nach gültigen EMailadressen
> abzugrasen.
>
> http://www.developer.com/open/article.php/10930_3106601_2
>
> #!/usr/bin/perl
> use strict;
> use Net::LDAP;
> my $ad = Net::LDAP->new("ad.wjgilmore.com")
> or die "Could not connect!";
> $ad->bind("ad-web\@ad.wjgilmore.com",
password=>"secret");
> my $searchbase = 'OU=People,OU=staff,DC­,DC=wjgilmore,DC=com';
> my $filter = "memberof=CN=staff,OU=groups,DC­,DC=wjgilmore,DC=com";
> my $attrs = "proxyAdresses";
> my $results 
> $ad->search(base=>$searchbase,filter=>$filter,attrs=>$attrs);
> my $entry;

foreach $entry ($results->entries) {
foreach my $mail ($entry->get_value("proxyAddresses")) {
if ($mail =~ /smtp:/i) {
print $mail . "\n";
}
}
}

So einfach...

--
No Swen today, my love has gone away
My mailbox stands for lorn, a symbol of the dawn