VCL ActiveDirectory4Delphi

Activedirectory4delphi

Bibliothèque de base Delphi pour la validation et l'authentification des utilisateurs LDAP dans Active Directory.

Installation

• Installation manuelle : Ajoutez les dossiers suivants à votre projet, dans Project> Options> Compiler de ressource> Répertoires et conditionnels> Inclure le chemin de recherche de fichiers

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

⚡️ QuickStart

Vous devez utiliser activedirectory.client

 uses ActiveDirectory.Client;

• Authentifier l'utilisateur actuel

 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 ;

• Utilisateur de validation actif

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

Plus d'informations examinent l'unité activedirectory.client

Demo d'application à l'aide de la bibliothèque

Télécharger win32, win64

Application de l'exemple d'utilisation de la bibliothèque et des informations qui pourraient être récupérées.

Obtenir des informations actuelles

Récupérez les informations de la section actuelle.

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

Obtenir des informations d'utilisateur

Récupérez les informations utilisateur à l'aide du domaine et de l'utilisateur indiqué dans les zones de texte.

 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

Authentifier

Authentifiez l'utilisation du domaine et de l'utilisateur indiqué dans les zones de texte.

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

Auteur

? Zava

• Twitter: @zavadev

Montrez votre soutien

Donnez un ️ si ce projet vous a aidé!

Licence

Activedirectory4Delphi est sous licence MIT.