#
# Use of LDAP on exchange server.... 
#
use Mozilla::LDAP::Conn;
use Mozilla::LDAP::Utils;

    $base = "o=CPH";
    $conn = new Mozilla::LDAP::Conn("serveur_mail", "389", "", ""); die "No LDAP connection" unless $conn;

    print "Rechercher d'un user\n";
    $entry = $conn->search($base, "subtree", "(uid=user)");
    $conn->printError() if $conn->getErrorCode();
    if (! $entry)
      { # handle this event, no entries found, dude!
      }
    else
      {
        while ($entry)
          {
            $entry->printLDIF();
            $entry = $conn->nextEntry();
          }
      }
    print "Rechercher d'un groupe\n";
    $entry = $conn->search($base, "subtree", "(cn=groupname)");
    $conn->printError() if $conn->getErrorCode();
    if (! $entry)
      { # handle this event, no entries found, dude!
      }
    else
      {
        while ($entry)
          {
            $entry->printLDIF();
            $entry = $conn->nextEntry();
          }
      }
    
    print "Rechercher par filtre de champs\n";
    @attr = ("cn", "uid", "mail");
    $filter = "(uid=LD*)";
    $base="o=domain_name";
    $scope="subtree";
    $entry = $conn->search($base, $scope, $filter, 0, @attr);
    $conn->printError() if $conn->getErrorCode();
    while ($entry) {
        $entry->printLDIF();
        $entry = $conn->nextEntry();
    }