Erreur lors de la récupération des users de l'Active Directory

**WebPac** · 21/12/2007, 18h32

Salut tout le monde, voici le code que j'utilise pour récupérer la liste des comptes actifs de l'Active Directory :

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
44
45
46
47
procedure RemplirUserSessionList( aList : TStrings );
var
  Container : IADsContainer;
  e : IEnumVARIANT;
  varArr : OleVariant;
  lNumElements : ULong;
  obj : IADs;
  hr : Integer;
  NomOrdinateur : string;
  User : IADsUser;
begin
//  CoInitialize( nil );
 
  Container := nil;
  NomOrdinateur := GetNomOrdinateur;
  ADsGetObject( 'WinNT://' + NomOrdinateur, IADsContainer, Container );
 
  Container.Filter := VarArrayOf( [ 'user' ] );
  hr := ADsBuildEnumerator( Container, e );
 
  while Succeeded( Hr ) do
  begin
    hr := ADsEnumerateNext( e, 1, varArr, lNumElements );
 
    if lNumElements = 0 then
      Break;
 
    IDispatch( varArr ).QueryInterface( IADs, obj );
    if obj <> nil then
    begin
      ADsGetObject( 'WinNT://' + NomOrdinateur + '/' + obj.Name, IADsUser, User );
 
      if not User.AccountDisabled then // Le compte n'est pas disabled
        if not User.IsAccountLocked then // Le compte n'est pas locked
          if ( User.Get( 'userFlags' ) and ADS_UF_PASSWD_CANT_CHANGE ) = 0 then // Le user peut changer son mot de passe
            aList.Add( obj.Name );
    end;
 
    varArr := varEmpty;
  end;
 
//  User._Release;
//  obj._Release;
//  Container._Release;
 
//  CoUninitialize;
end;

Et je l'appelle ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
procedure Test;
var
  slUser : TStringList;
begin
  slUser := TStringList.Create;
  RemplirUserSessionList( slUser );
  ShowMessage( slUser.Commatext );
  slUser.Free;
end;

Lorsque je l'exécute, j'ai un message d'erreur à la ligne ShowMessage( slUser.Commatext ); si j'essaie d'afficher le Count ou autre chose de la slUser, ça met le message d'erreur, d'ailleurs si je n'affiche pas le ShowMessage, j'ai le message d'erreur sur le Free.
Le message d'erreur est :

---------------------------
Notification d'erreur du débogueur
---------------------------
Echec du projet C:\Travail\MyReport5\MyReport5.5.0\Data5.exe avec le message : 'violation d'accès à 0x87d03020 : lecture de l'adresse 0x87d03020'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
---------------------------
OK
---------------------------

J'ai essayé en rajoutant/supprimant des CoInitialize( nil ); / CoUninitialize;
En appelant des ._Release; ou pas mais j'ai toujours cette erreur.

Ce qui est bizarre est que ma StringList est bien instanciée, dans le code RemplirUserSessionList, elle est bien instanciée et si j'affiche un commatext, cela fonctionne. Elle perd son instanciation à la sortie de la procédure, comme si un objet se libérait et au lieu de se libérer, il libérait la StringList.

Merci pour votre aide car je ne trouve pas.

**WebPac** · 26/12/2007, 10h32

Up ?

PS : même si vous ne connaissez pas la solution, pouvez-vous essayer le code pour me dire si ça bugue aussi chez vous ou pas ?

Merci.

**bubulemaster** · 26/12/2007, 16h38

Et si au lieu de commatext, vous mettez text as-tu la même erreur ? (désolé, je ne suis pas en active directory, je n'ai pas pu tester votre code).

**Jipété** · 26/12/2007, 22h56

Salut,

je sais pas si ça peut aider le schmilblik à avancer, mais j'ai testé avec juste

Code :

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

for hr := 0 to 5 do aList.Add(IntToStr(hr));

dans ta proc RemplirUserSessionList, et ça donne 0,1,2,3,4,5

Y a donc un 'blème ailleurs : vire la boucle pour déjà voir si tu peux récupérer le premier user, et à coups de ShowMessage bien placés dans la proc tu devrais y arriver (j'ai pas d'AD, là).
Good luck,
--
jp

**WebPac** · 26/12/2007, 23h12

En fait le problème est plus complexe.
Le même code appelé dans une fonction bugue et ce code copié/collé à la place de son appel ne bugue pas.
Que je fasse du .Commatext, .Text, .Count ou que je remplace la déclaration de la fonction pour qu'elle retourne la liste ou son commatext ne répare le problème.
La fonction en elle-même fonctionne car si je mets un ShowMessage au moment du aList.Add( obj.Name ); j'obtiens bien chaque nom de chaque utilisateur de l'AD.

Le plus bizarre est que j'utilise cette même méthode (je rajoute son unité dans le projet) dans un autre projet et elle fonctionne parfaitement.

PS : pas besoin d'avoir un AD installé sur sa machine, je fais sur un XP famillial et il me retrouve Administrateur et le nom de ma cession, d'ailleurs, ce code est bizarre car si on ne filtre pas sur user, on retrouve aussi les groupes d'utilisateurs ainsi que les services installés sur la machine.

**Jipété** · 27/12/2007, 13h20

Envoyé par WebPac

PS : pas besoin d'avoir un AD installé sur sa machine (...)

Cool, mais qu'est-ce qu'il faut rajouter dans les uses pour que ça compile (un peu la flemme de chercher...

) ?
--
jp

**WebPac** · 27/12/2007, 14h07

Salut, il faut rajouter Variants, ActiveDs_TLB, ActiveX et adshlp dans les uses.

**Jipété** · 27/12/2007, 18h42

Yep,
ActiveDs_TLB et adshlp inconnus de mon D7...

Désolé, je suis contraint de passer la main...
--
jp

**WebPac** · 28/12/2007, 14h00

Salut,
si tu veux télécharger les fichiers sources, voici un lien.

**Jipété** · 28/12/2007, 23h46

Yep, Webpac !

Merci pour le lien.
Je ne te serai pas d'une grande utilité, il y a dans cette source plein de choses avec lesquelles je n'ai jamais joué...

Cependant, j'arrive (effectivement ça fonctionne sans AD !) à un résultat en déportant la déclaration de slUser comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
...
implementation
 
{$R *.dfm}
 
var
  slUser : TStringList;
 
procedure RemplirUserSessionList( aList : TStrings );
...

Les spécialistes des pointeurs et autres instanciations d'objets y verront sans doute une explication.
Pour trouver cette soluce, je me suis inspiré d'un projet où il faut remplir un mémo grace à une procédure qui travaille comme toi avec TStrings, comme ça : RemplirMemo ( Memo.Lines );
Et comme Memo est sur la Mainform, il est connu de tout le prog.
Valà, je sais pas trop si ça peut t'aider...
Mes 2 cts,
--
jp
PS : c'est normal que mon firewall me lève une tentative d'accès à des adresses ip:DNS ("des" parce que pas toujours les mêmes) sur ADsGetObject( 'WinNT://' + NomOrdinateur, IADsContainer, Container ); ?
PS2 : manquait la déclaration de "Variants" dans adshlp.pas... ?

**WebPac** · 31/12/2007, 08h31

Salut, pour les tentatives de conexion sortante, je ne sais pas trop, mon firewall doit les laisser passer sans me prévenir, on va dire : "sûrement".

Je pense que le problème vient des fonctions utilisées qui supprime plus d'objet sur la pile qu'il ne faudrait, mais la question est pourquoi ?
Vu que les objets sur la pile sont libérés, c'est donc normal que la StringList en variable locale est libérée mais qu'elle ne le soit pas si elle est en variable globale.
Le problème est que c'est source d'autre bug, quelle autre variable peut être libérée sans qu'on ne le sache et surtout pourquoi et comment le réparer ?

Déclarer ma variable en global ne me plait guerre, de toute façon, pour l'instant, je cherche une autre solution sans passer par tout ça et si vraiment je dois l'utiliser, je ferrai directement un copier/coller du code sans appeler la fonction (bien que ce ne soit pas propre) car ça fonctionne aussi.

Pour les autres, la question de l'origine du bug reste ouverte.

**Jipété** · 31/12/2007, 15h51

Salut !

Je crois que tu devrais ouvrir un nouveau topic avec un titre plus explicite et plus en rapport avec le problème que tu rencontres : ça attirera peut-être des « pointures » !
Au fait,

(...) d'ailleurs, ce code est bizarre car si on ne filtre pas sur user, on retrouve aussi les groupes d'utilisateurs ainsi que les services installés sur la machine.

tu fais ça comment ?
J'ai essayé avec Container.Filter := VarArrayOf( [ '' ] ); ou en commentant cette ligne, dans les 2 cas ça merdouille,

Meilleurs vœux et bon coding,
--
jp

**WebPac** · 31/12/2007, 15h59

Salut,

pour récupérer les services et les groupes en plus des users :

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
procedure RemplirUserSessionList( aList : TStrings );
var
  Container : IADsContainer;
  e : IEnumVARIANT;
  varArr : OleVariant;
  lNumElements : ULong;
  obj : IADs;
  hr : Integer;
  NomOrdinateur : string;
  User : IADsUser;
begin
  CoInitialize( nil );
 
  Container := nil;
  NomOrdinateur := GetNomOrdinateur;
  ADsGetObject( 'WinNT://' + NomOrdinateur, IADsContainer, Container );
  Container.Filter := VarArrayOf( [ '' ] );
  hr := ADsBuildEnumerator( Container, e );
 
  while Succeeded( Hr ) do
  begin
    hr := ADsEnumerateNext( e, 1, varArr, lNumElements );
 
    if lNumElements = 0 then
      Break;
 
    IDispatch( varArr ).QueryInterface( IADs, obj );
    if obj <> nil then
    begin
//      ADsGetObject( 'WinNT://' + NomOrdinateur + '/' + obj.Name, IADsUser, User );
 
//      if not User.AccountDisabled then // Le compte n'est pas disabled
//        if not User.IsAccountLocked then // Le compte n'est pas locked
//          if ( User.Get( 'userFlags' ) and ADS_UF_PASSWD_CANT_CHANGE ) = 0 then // Le user peut changer son mot de passe
            aList.Add( obj.Name );
    end;
 
    varArr := varEmpty;
  end;
 
  CoUninitialize;
end;

Il faut récupérer tous les obj sans utiliser le code qui correspond au IADsUser.

**Jipété** · 31/12/2007, 16h11

Merci de ta précision, hélas ça le fait pas

...
Un ShowMessage(IntToStr(aList.Count)); au bon endroit me retourne 0.
Limitation de mon 2K ?
--
jp

**WebPac** · 31/12/2007, 16h18

Envoyé par Jipété

Merci de ta précision, hélas ça le fait pas

...
Un ShowMessage(IntToStr(aList.Count)); au bon endroit me retourne 0.
Limitation de mon 2K ?
--
jp

Je ne saurrais tu dire, je n'ai pas de 2000 sous la main pour tester.
Peut-être ton parefeu qui bloque ? Vu qu'il peut parfois bloquer ce genre de code.

**Jipété** · 31/12/2007, 16h27

Envoyé par WebPac

Peut-être ton parefeu qui bloque ? Vu qu'il peut parfois bloquer ce genre de code.

Bah, je crois pas puisque comme il me pose la question, un coup j'interdis un coup j'autorise, mais le résultat est le même...
Enfin bon, c'est pas grave, juste anecdotique, et on s'éloigne de ton problème : laisse tomber.
--
jp

**Jipété** · 31/12/2007, 18h12

Bon, j'ai trouvé :

Code :

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

//  Container.Filter := VarArrayOf( [ '' ] );

Mais ça ne règle pas ton problème,

--
jp

**WebPac** · 31/12/2007, 21h25

Et non acubécé,

**Jipété** · 01/01/2008, 12h17

Envoyé par WebPac

Et non acubécé,

No comprendo

--
jp

**WebPac** · 01/01/2008, 16h48

Envoyé par Jipété

No comprendo

--
jp

Petit jeu de mots associé à ton nom : J P T A Q B C.
Jipété acubécé.
Je sais, y a mieux, mais on fait avec ce qu'on a.

Erreur lors de la récupération des users de l'Active Directory

Langage Delphi

Discussions similaires

Partager

Partager