Ecosyste.ms: Awesome

An open API service indexing awesome lists of open source software.

https://github.com/EdZava/VCL-ActiveDirectory4Delphi

Delphi basic library for validation and authentication of LDAP users in Active Directory.
https://github.com/EdZava/VCL-ActiveDirectory4Delphi

activedirectory adsi delphi delphi-library ldap ldap-client

Last synced: about 2 months ago
JSON representation

Delphi basic library for validation and authentication of LDAP users in Active Directory.

Host: GitHub
URL: https://github.com/EdZava/VCL-ActiveDirectory4Delphi
Owner: EdZava
License: mit
Created: 2020-07-17T16:33:14.000Z (almost 4 years ago)
Default Branch: master
Last Pushed: 2023-04-21T11:43:34.000Z (about 1 year ago)
Last Synced: 2024-01-27T09:09:16.105Z (5 months ago)
Topics: activedirectory, adsi, delphi, delphi-library, ldap, ldap-client
Language: Pascal
Homepage:
Size: 411 KB
Stars: 76
Watchers: 14
Forks: 11
Open Issues: 2
Metadata Files:
- Readme: README.md
- License: LICENSE

Lists

awesome-pascal - ActiveDirectory4Delphi

README

        


  



# ActiveDirectory4Delphi

Delphi basic library for validation and authentication of LDAP users in Active Directory.

![release](https://img.shields.io/github/v/release/EdZava/VCL-ActiveDirectory4Delphi?style=flat-square)

![Delphi Supported Versions](https://img.shields.io/badge/Delphi%20Supported%20Versions-XE7%20and%20ever-blue.svg)

![Platforms](https://img.shields.io/badge/Supported%20platforms-Win32%20and%20Win64-red.svg)

[![Twitter: ZavaDev](https://img.shields.io/twitter/follow/ZavaDev.svg?style=social)](https://twitter.com/ZavaDev)

## ⚙️ Installation

* **Manual installation**: Add the following folders to your project, in *Project > Options > Resource Compiler > Directories and Conditionals > Include file search path*

```

../VCL-ActiveDirectory4Delphi/src/Core

../VCL-ActiveDirectory4Delphi/src/Interfaces

../VCL-ActiveDirectory4Delphi/src/Winapi

```

## ⚡️ Quickstart

You need to use **ActiveDirectory.Client**

```pascal

uses ActiveDirectory.Client;

```

* **Authenticate current user**

```pascal

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;

```

* **Validation user active**

```pascal

procedure ValidationUserActive(DomainName, UserName: string);

begin

  if ActiveDirectoryClient.GetUserActive(DomainName, UserName) then

    ShowMessage('ok')

  else

    ShowMessage('Fail');

end;

```

more information look at the unit [ActiveDirectory.Client](./src/Core/ActiveDirectory.Client.pas)

## ✨ App demo using library

Download

[Win32](https://github.com/EdZava/VCL-ActiveDirectory4Delphi/releases/latest/download/TestActiveDirectory-Win32.rar),

[Win64](https://github.com/EdZava/VCL-ActiveDirectory4Delphi/releases/latest/download/TestActiveDirectory-Win64.rar)

Application of example of using the library and information that could be recovered.



  



### Get Current Info 

Retrieve the information of the current section.

```log

AllProviders = WinNT:,LDAP:

CurrentUserName = usuario1

CurrentDomainName = MYDOMAIN

CurrentLDAPDomainName = DC=MYDOMAIN,DC=TEST

ActiveDirectoryEnabled = True

```

### Get User Info

Retrieve user information using the domain and user indicated in the text boxes.

```log

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

```

### Authenticate

Authenticate using the domain and user indicated in the text boxes.

```log

Param.Domain = MYDOMAIN

Param.UserName = usuario1

Param.UserPass = *********

Authenticated = True

```

## Author

👤 **Zava**

* Twitter: [@ZavaDev](https://twitter.com/ZavaDev)

## Show your support

Give a ⭐️ if this project helped you!

### License

ActiveDirectory4Delphi is [MIT licensed](./LICENSE).