Discussion :

[Lung]

Comment utiliser ADSOpenObject dans une DLL ?

Dans une application, ça fonctionne bien, mais dans une DLL, ça échoue à chaque fois (ça renvoit faux, comme si le login/mdp était incorrect).

Code dans la DLL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   function ADsOpenObject(lpszPathName: PWideChar; lpszUserName: PWideChar; lpszPassword: PWideChar; dwReserved: LongInt; const riid: TGUID; out obj): HResult;   stdcall;   external 'activeds.dll';
 
function VerificationMDPLDAP(const szLogin, szPwd: String): Boolean;
var
   wUsername, wPassword: WideString;
//   OutObj: Pointer;
   UnknownObj: IUnknown;
   HR: HResult;
begin
   wUsername := szLogin;
   wPassword := szPwd;
   HR := ADSOpenObject('LDAP://serveurdomaine/DC=domaine,DC=LOC', PWideChar(wUsername), PWideChar(wPassword), ADS_SECURE_AUTHENTICATION, IID_IADs, UnknownObj);
   if HR = S_OK then
      Result := True
   else
      Result := False;
end;

Y-a-t'il des précautions ou des choses à faire attention ?

[Lung]

Je suis le seul à l'avoir fait ?

[ShaiLeTroll]

Personnellement, je dois aussi faire du LDAP, et seul ADSGetObject se connecte, avec ADSOpenObject, j'ai les erreurs 001F ou 002B, ... et je ne le fais que dans une application pourtant !

essaye de voir l'unité de Paul Toth, je vais l'essayer dès que j'aurais le temps sur ce projet, en ce moment, un autre est prioritaire

[Lung]

essaye de voir l'unité de Paul Toth, je vais l'essayer dès que j'aurais le temps sur ce projet, en ce moment, un autre est prioritaire

LDAPSearch ne me trouve rien.
Pas simple, de jouer avec le LDAP ...

[ShaiLeTroll]

Je n'ai pas encore essayé son unité, mais non, LDAP, c'est pas un truc facile, ...

attention, l'ordre des "cn=...o=...dc=..." dans le nom qualifié est important !

[Lung]

attention, l'ordre des "cn=...o=...dc=..." dans le nom qualifié est important !

C'est-à-dire ?

[Lung]

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
function VerificationMDPLDAP(const szLogin, szPwd: String): Boolean;
var
   ldap: Integer;
   dn: String;
begin
   Result := False;
   ldap := LDAPOpen('sghm.loc');
   if ldap = INVALID_SOCKET then
   begin
      ShowMessage('Serveur de sécurité introuvable');
      Exit;
   end;
   try
      dn := LDAPSearch(ldap, szLogin);
      if dn = '' then
      begin
         ShowMessage('Compte inconnu');
         Exit;
      end;
      if not LDAPBind(ldap, dn, szPwd) then
      begin
         ShowMessage('Mot de passe invalide');
         Exit;
      end;
   finally
      LDAPClose(ldap);
   end;
   Result := True;
end;

Et celui avec ADO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
function VerificationMDPLDAP(const szLogin, szPwd: String): Boolean;
var
   ADOConnection: TADOConnection;
   ADOQuery: TADOQuery;
begin
   Result := False;
 
   CoInitialize(nil);
   ADOConnection := TADOConnection.Create(nil);
   ADOQuery := TADOQuery.Create(nil);
   try
//      ADOConnection.Provider := 'ADsDSOObject;Encrypt Password=False;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648';
      ADOConnection.Provider := 'Provider=ADsDSOObject;Password=poiop;User ID=admin;Encrypt Password=True;Data Source=sghm.loc;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648';
      ADOQuery.Connection := ADOConnection;
 
      ADOQuery.Close;
      ADOQuery.SQL.Clear;
      ADOQuery.SQL.Add('select AdsPath, CN, SN, mail, userPrincipalName, sAMAccountName, Title, company, department');
      ADOQuery.SQL.Add('from ''LDAP://DC=sghm,DC=loc''');
      ADOQuery.SQL.Add('where LdapsAMAccountName = ' + QuotedStr(szLogin)+' or givenName = ' + QuotedStr(szLogin) + ' or sn = ' + QuotedStr(szLogin));
      ADOQuery.SQL.Add('order by sn');
      try
         ADOQuery.Open;
      except
         on E: Exception do
         begin
            ADOQuery.Close;
            ShowMessage(E.Message);
            Exit;
         end;
      end;
      if ADOQuery.IsEmpty then
         ShowMessage('RIEN !')
      else
      begin
         ShowMessage(ADOQuery.FieldByName('userPrincipalName').AsString);
         Result := True;
      end;
   finally
      ADOQuery.Free;
      ADOConnection.Free;
   end;
end;

Y a t'il quelque chose que je ne fais pas bien ?

[fulster]

Bonjour à tous et plus particulièrement à ShaïLeTroll ,

Moi non plus, le LDAP search ne renvoie rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ldap := LDAPOpen('xxx.xxx.xxx.xxx');

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ldap := LDAPOpen('xxx.xxx.xxx.xxx/dc=xxxx,dc=xxx');

Comment fait le morceau de code pour "choisir" le dc ...
Ma question est sans doute naive.

Si tu as réussi depuis ça m'aiderait bcp !

Merci,

Fulst'