Аутентификация в Active Directiry

[iloer]

Всем привет!!!

В общем задача состоит в том чтобы отослать в Active Directory некое сообщение содержащее логин и пароль, а в ответ получить признак того удачно прошла аутентификация или нет.

сразу отсеку несколько комментариев- приложение не связанно с базами данных, мне ненужно получать ни роли ни права конкретных пользователей.

Заранее спасибо всем кто откликнулся.

[Stilet]

Попробуй это:
http://yandex.ua/yandsearch?text=Del...oc=10&lr=20554

[iloer]

Пасип, гляну

[iloer]

Решение проблемы!

uses
ActiveDs_TLB

...

function ADsOpenObject(lpszPathName: WideString; lpszUserName: WideString; lpszPassword: WideString;
            dwReserved: DWORD; const riid: TGUID; out ppObject: Pointer): HRESULT; stdcall;

...
implementation
function ADsOpenObject; external 'activeds.dll';

...

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  hr: HResult;
  objDomain: Pointer;
begin
    try
    hr:= ADsOpenObject('LDAP://...',
                             elogin.Text,epass.Text,
                             ADS_SECURE_AUTHENTICATION,  IID_IADs, objDomain);
       if Failed(hr) then
        begin
          ShowMessage('no');

        end
      else
        begin
          ShowMessage('yes');
        end
    except
     on E: Exception do
     ShowMessage('Error: ' + E.Message);
    end;
end;