VCL ActiveDirectory4Delphi

ActiveDirectory4Delphi

Delphi Basic Library para validação e autenticação de usuários LDAP no Active Directory.

Instalação

• Instalação manual : Adicione as seguintes pastas ao seu projeto, em Projeto> Opções> Compilador de Recursos> Diretórios e Condicionais> Inclua Caminho de Pesquisa de Arquivos

 ../VCL-ActiveDirectory4Delphi/src/Core
../VCL-ActiveDirectory4Delphi/src/Interfaces
../VCL-ActiveDirectory4Delphi/src/Winapi

⚡️ Investir rápido

Você precisa usar o ActiveDirectory.client

 uses ActiveDirectory.Client;

• Autentique o usuário atual

 procedure Authenticate (UserPass: string);
var
  CurrentUserName: string;
  CurrentDomainName: string;
  CurrentLDAPDomainName: string;
begin
  if ( not ActiveDirectoryClient.GetActiveDirectoryEnabled) then
    Exit;

  CurrentUserName := ActiveDirectoryClient.GetCurrentUserName;
  CurrentDomainName := ActiveDirectoryClient.GetCurrentDomainName(CurrentUserName);  
  CurrentLDAPDomainName := ActiveDirectoryClient.GetCurrentLDAPDomainName(CurrentDomainName);  

  if ActiveDirectoryClient.AuthenticateUser(CurrentLDAPDomainName, CurrentUserName, UserPass) then
    ShowMessage( ' ok ' )
  else
    ShowMessage( ' Fail ' );
end ;

• Usuário de validação ativo

 procedure ValidationUserActive (DomainName, UserName: string);
begin
  if ActiveDirectoryClient.GetUserActive(DomainName, UserName) then
    ShowMessage( ' ok ' )
  else
    ShowMessage( ' Fail ' );
end ;

Mais informações observe a unidade ActiveDirectory.client

Demonstração de aplicativos usando biblioteca

Faça o download do Win32, Win64

Aplicação do exemplo de uso da biblioteca e informações que podem ser recuperadas.

Obtenha informações atuais

Recuperar as informações da seção atual.

 AllProviders = WinNT:,LDAP:
CurrentUserName = usuario1
CurrentDomainName = MYDOMAIN
CurrentLDAPDomainName = DC=MYDOMAIN,DC=TEST
ActiveDirectoryEnabled = True

Obtenha informações do usuário

Recupere as informações do usuário usando o domínio e o usuário indicado nas caixas de texto.

 Param.Domain = MYDOMAIN
Param.UserName = usuario1
UserFind = True
UserActive = True
UserInfo.UID = usuario1
UserInfo.UserName = usuario1
UserInfo.Description = Descripcion del usuario 1
UserInfo.Password.Expired = False
UserInfo.Password.NeverExpires = False
UserInfo.Password.CannotChange = False
UserInfo.Disabled = False
UserInfo.LockedOut = False
UserInfo.Groups = gusuarios,Usuarios del dominio

Autenticar

Autentique usando o domínio e o usuário indicado nas caixas de texto.

 Param.Domain = MYDOMAIN
Param.UserName = usuario1
Param.UserPass = *********
Authenticated = True

Autor

? Zava

• Twitter: @zavadev

Mostre seu apoio

Dê a um ️ se este projeto o ajudar!

Licença

ActiveDirectory4delphi é licenciado pelo MIT.