VCL ActiveDirectory4Delphi

Activedirectory4Delphi

Delphi Basic Library zur Validierung und Authentifizierung von LDAP -Benutzern in Active Directory.

Installation

• Manuelle Installation : Fügen Sie Ihrem Projekt die folgenden Ordner in Projekt> Optionen> Ressourcenkompiler> Verzeichnisse und Bedingungen hinzu> Integrieren Sie den Dateisuchpfad ein

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

⚡️ QuickStart

Sie müssen activedirectory.client verwenden

 uses ActiveDirectory.Client;

• Aktueller Benutzer authentifizieren

 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 ;

• Validierung Benutzer aktiv

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

Weitere Informationen befassen sich mit dem Actived -Directory.Client

App -Demo Verwenden der Bibliothek

Download Win32, Win64

Anwendung des Beispiels für die Verwendung der Bibliothek und Informationen, die wiederhergestellt werden könnten.

Holen Sie sich aktuelle Informationen

Abrufen Sie die Informationen des aktuellen Abschnitts ab.

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

Erhalten Sie Benutzerinformationen

Abrufen Sie Benutzerinformationen mithilfe der in den Textfeldern angegebenen Domäne und Benutzer.

 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

Authentifizieren

Authentifizieren Sie mithilfe der in den Textfeldern angegebenen Domäne und Benutzer.

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

Autor

? Zava

• Twitter: @zavadev

Zeigen Sie Ihre Unterstützung

Geben Sie ein ️, wenn dieses Projekt Ihnen geholfen hat!

Lizenz

Activedirectory4Delphi ist MIT lizenziert.