Имеется:
implementation
function ADsOpenObject(lpszPathName: WideString; lpszUserName: WideString; lpszPassword: WideString;
dwReserved: DWORD; const riid: TGUID; out ppObject: IADs): HRESULT; external 'activeds.dll';
Но её вызов:
var
HR : HResult;
obj : IADS;
begin
HR := ADsOpenObject('LDAPL//ldap.****/ou=***, dc=*****, dc=***** '; 'ldap.user'; 'ldap.password',
ADS_SECURE_AUTHENTICATION , IID_IADs, usr);
end;
Приводит либо к AV, либо к Failed(HR).
Смысл задачи - введённый логин/пароль проверить через LDAP + принадлежность юзера к определённой группе пользователей приложения.
На "королевстве" много прочитал, MSDN тоже читал, но просветление на тему "что я делаю не так" не наступает.
Кто сталкивался?
BDS2006, WInXp, комп в домене.
Есть новые 
Нет новых [134432 +19][b:0][p:0.001]