declare
  l_attrs DBMS_LDAP.string_collection;
  l_message DBMS_LDAP.message;
  l_entry DBMS_LDAP.message;
  l_attr_name VARCHAR2( 256 );
  l_ber_element DBMS_LDAP.ber_element;
  l_vals DBMS_LDAP.string_collection;

  l_retval PLS_INTEGER;
  l_session DBMS_LDAP.session;

  ldap_host VARCHAR2( 256 ) := 'xxxxxxxx';
  ldap_port VARCHAR2( 256 ) := '389';
  ldap_user VARCHAR2( 256 ) := 'uid=xxxxxx,ou=xxxx,dc=xxx,dc=xx';
  ldap_passwd VARCHAR2( 256 ) := 'xxxxxx';
  ldap_base VARCHAR2( 256 ) := 'ou=xxxx,dc=xxx,dc=xx';
  ldap_filter VARCHAR2( 256 ) := '(cn=Иванов Иван Иванович)';

BEGIN
  DBMS_LDAP.USE_EXCEPTION := TRUE;
  l_session := DBMS_LDAP.init(ldap_host,ldap_port);
  l_retval := DBMS_LDAP.simple_bind_s(l_session, ldap_user, ldap_passwd);

  -- Get all attributes
  l_attrs( 1 ) := 'cn'; -- retrieve attributes 
  l_attrs( 2 ) := 'mail'; 

  l_retval := DBMS_LDAP.search_s(ld => l_session, 
                                 base => ldap_base, 
                                 scope => DBMS_LDAP.SCOPE_ONELEVEL,
                                 filter => ldap_filter,
                                 attrs => l_attrs,
                                 attronly =>  0 ,
                                 res => l_message);

  dbms_output.put_line(DBMS_LDAP.count_entries(ld => l_session, msg => l_message));
  IF DBMS_LDAP.count_entries(ld => l_session, msg => l_message) >  0  THEN

    -- Get all the entries returned by our search.
    l_entry := DBMS_LDAP.first_entry(ld => l_session,msg => l_message);
    WHILE l_entry IS NOT NULL LOOP

      -- Get all the attributes for this entry.
      l_attr_name := DBMS_LDAP.first_attribute( ld => l_session,
                                                ldapentry => l_entry,
                                                ber_elem => l_ber_element);
      WHILE l_attr_name IS NOT NULL LOOP
        
        -- Get all the values for this attribute.
        l_vals := DBMS_LDAP.get_values ( ld => l_session,
                                         ldapentry => l_entry,
                                         attr => l_attr_name );

        FOR i IN l_vals.FIRST .. l_vals.LAST LOOP
        
          dbms_output.put_line(l_vals(i));
          dbms_output.put_line('true');
          return ;
        END LOOP values_loop;
      
        l_attr_name := DBMS_LDAP.next_attribute( ld => l_session,
                                                 ldapentry => l_entry,
                                                 ber_elem => l_ber_element );
      END LOOP attibutes_loop;
    
      l_entry := DBMS_LDAP.next_entry(ld => l_session,msg => l_entry);
    END LOOP entry_loop;
  END IF;

  dbms_output.put_line('false');
END;