VCL ActiveDirectory4Delphi

ActiveDirectory4delphi

Active DirectoryのLDAPユーザーの検証と認証のためのDelphi Basicライブラリ。

インストール

• 手動インストール：プロジェクトに次のフォルダーを追加し、プロジェクト>オプション>リソースコンパイラ>ディレクトリと条件>ファイル検索パスを含める

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

⚡️QuickStart

ActiveDirectory.clientを使用する必要があります

 uses ActiveDirectory.Client;

• 現在のユーザーを認証します

 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 ;

• 検証ユーザーアクティブ

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

詳細ユニットActiveDirectory.Clientを詳しく見てください

ライブラリを使用したアプリデモ

Win32、Win64をダウンロードします

回復できるライブラリと情報を使用した例の適用。

現在の情報を取得します

現在のセクションの情報を取得します。

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

ユーザー情報を取得します

テキストボックスに示されているドメインとユーザーを使用してユーザー情報を取得します。

 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

認証

テキストボックスに示されているドメインとユーザーを使用して認証します。

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

著者

？ザバ

• Twitter：@zavadev

あなたのサポートを見せてください

このプロジェクトがあなたを助けたなら、♥を与えてください！

ライセンス

ActiveDirectory4DelphiはMITライセンスを取得しています。