Skip to content
16 de dezembro de 2011 / rafaelti

Obter informações de um usuário no LDAP(Lightweight Directory Access Protocol) ou Active Directory

Objetivo

Obter informação do usuário no LDAP ou Active Directory

Plataforma

Delphi, windows e LDAP, funcionará em qualquer versão, salvo o engano, mas eu utilizei o Delphi 2010.

Conhecimento
Delphi, rede, LDAP ou Active Directory

Introdução

No post de validação de usuário foi mostrado como verificar a senha de um cliente, no entanto não a como pegar informação como o CPF.

Solução

No método é necessário utilizar a interface IADsUser e ele conterá todas as informações pertinentes ao usuário.

function EhUsuarioValido(Servidor, Usuario, Senha: pchar): Boolean;
var hr : integer;
    obj : IAdsUser;
begin
  try
    hr := ADsOpenObject(Servidor, Usuario, Senha, ADS_PROMPT_CREDENTIALS , IAdsUser, obj);
    Result :=Succeeded(hr);
  except
    Result := False;
  end;
end;

Para obter as informações pode ser feito utilizando o objeto passado por referência. Usando como base a função acima.

obj.FullName

Se tiver alguma propriedade diferente que não esteja criada na interface, pode utilizar o método get().


obj.Get('PersonCPF')

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: