Help for this page

Select Code to Download

Select or download this

my $ldapObj = Net::LDAP->new($server);
$ldapObj->bind;    # bind anonymously
my $ldapSearchUser = $ldapObj->search(base => 'o=isp',
                                      filter => '(uid=' . $ENV{'REMOTE
+_USER'}. ').);

Select or download this
```
$ldapObj->bind($dn, $ENV{'PASSWORD'})
```