11 my (@entries, $result);
14 KNOWLES_AD_HOST => '10.252.2.28',
15 KNOWLES_AD_PORT => 389,
16 KNOWLES_AD_BASEDN => 'DC=knowles,DC=com',
17 KNOWLES_AD_BINDDN => 'CN=AD Reader,OU=Users,OU=KMV,OU=Knowles,DC=knowles,DC=com',
18 KNOWLES_AD_BINDPW => '@Dre@D2015',
21 my $mailAttribute = 'mail';
23 print "Creating new LDAP object for Knowles\n";
24 my $knowlesLDAP = Net::LDAP->new (
25 $opts{KNOWLES_AD_HOST}, (
26 host => $opts{KNOWLES_AD_HOST},
27 port => $opts{KNOWLES_AD_PORT},
28 basedn => $opts{KNOWLES_AD_BASEDN},
29 #binddn => $opts{KNOWLES_AD_BINDDN},
30 #bindpw => $opts{KNOWLES_AD_BINDPW},
34 print "Binding anonymously\n";
35 # if ($opts{KNOWLES_AD_BINDDN}) {
36 $result = $knowlesLDAP->bind (
37 # dn => $opts{KNOWLES_AD_BINDDN},
38 # password => $opts{KNOWLES_AD_BINDPW},
39 ) or croak "Unable to bind\n$@";
41 croak "Unable to bind (Error " . $result->code . "\n" . $result->error
44 print "Searching for $userid\n";
45 $result = $knowlesLDAP->search (
46 base => $opts{KNOWLES_AD_BASEDN},
47 filter => "sAMAccountName=$userid",
50 print "Getting entries\n";
51 @entries = ($result->entries);
54 return $entries[0]->get_value ($mailAttribute);
60 print getUserEmail ('adefari');