Authentification ldap par user et group

DRISS - Modifié le 14 janv. 2019 à 13:43
Bonjour,
j'ai fait un script pour authentifier par LDAP en user et mot de passe de mon domaine ca mache bien
mais je veux authentifier par user et par group c'est à dire lorsque le user est appartient à un mygroup
l'authentification sera accepté voici mon code source:
OleCheck( AdsOpenObject('LDAP://mon serveur/',StringToOleStr(pUser),StringToOleStr(pPassword), 0, IID_IADsContainer, UnknownObj));

if UnknownObj<>nil then
begin

Result := true;
end;
//frmMain.edtAttr.Text:= aUser.FullName;
// here retrieve the information needed
Except
On E:Exception do
Begin
Result := false;

MessageDlg('Nom d''utilisateur ou mot de passe est incorrect!',mtError,[mbOk],0);
//ShowMessage(E.Message);
aUser := Nil;
End;
end;
j'ai group:group1,user: us1,mot de passe:mps1
je veux faire une authentification par la fonction AdsOpenObject mais par group1,us1,mps1.
merci beaucoup pour votre aide.