Synapse LDAPSendライブラリにはusername = Domain \ Userが必要です

Question

私はActive Directoryサーバに接続して認証するためにSynapse LDAPSend.pasライブラリを使用しています。コードは非常にシンプルで直接的ですが、コマンドを正しくバインドするには、ユーザー名に "DomainName \ Username"または "Username @ DomainName"形式が必要であるという問題があります。どういうわけか、Usernameを指定してのみ動作させるのですか？

var 
    ldap: TLDAPsend; 
begin 
    ldap:= TLDAPsend.Create; 
    try 
    ldap.TargetHost := '192.168.0.12'; 
    ldap.UserName:= 'AD\Owner'; //here I need to specify only Owner 
    ldap.Password:= 'Password!'; 
    if ldap.Login then 
     if ldap.Bind then 
     begin 
     //do stuff 
     ldap.Logout; 
     end; 
    finally 
    ldap.Free; 
    end; 
end; 

"* \ Owner"やActive Directoryの他のコマンドを使って動作させると思っていましたか？それを作るためのシナプスの設定かもしれません。

Answer 1

現在のユーザーがドメインにログオンしている場合は、ドメイン名を取得するためのさまざまなオプションがあります。最も簡単な方法は、関数SysUtils.GetEnvironmentVariableを使用して環境変数USERDOMAINを読み込むことです。また、Windows NTで利用可能なWindows API関数NetWkstaUserGetInfoがあります。また、Windows 2000には、多くの場合、Windows 2000で導入されているGetUserNameExがあります。

ご使用のバージョンのDelphiにこれらのAPI関数の宣言が含まれていない場合は、Jedi Windows API headersを使用してください。