Aide SVP - VBA & Manipulation LDAP

Question

Bonsoir &#224; tous,


Alors voil&#224; j'ai un annuaire LDAP dans lequel je veux extraire des informations d'utilisateurs qui ne poss&#232;dent qu'une certaine valeur pour une certaine propri&#233;t&#233;.


J'ai trouv&#233; ce code :


Public Function chercheruser()


    Dim entry As New System.DirectoryServices.DirectoryEntry("[ldap://OU=mon_OU1,OU=User,OU=Accounts,DC=mon_domaine1,DC=mon_domaine2,DC=com/ LDAP://OU=mon_OU1,OU=User,OU=Accounts,DC=mon_domaine1,DC=mon_domaine2,DC=com]")
    Dim mySearcher As New System.DirectoryServices.DirectorySearcher(entry)
    Dim result As System.DirectoryServices.SearchResult


    mySearcher.Filter = ("(cn='j*')")


    For Each result In mySearcher.FindAll()


        'Traitement


    Next


End Function


Probl&#232;me : c'est du .NET et j'aimerai faire &#231;a dans du VBA. Pourriez vous m'aider SVP.


J'ai un truc qui marche du style :


    ADSIPath = "[ldap://OU=mon_OU1,OU=User,OU=Accounts,DC=mon_domaine1,DC=mon_domaine2,DC=com/ LDAP://OU=mon_OU1,OU=User,OU=Accounts,DC=mon_domaine1,DC=mon_domaine2,DC=com]"


    Set objOU = GetObject(ADSIPath)


    For Each objOUMember In objOU


        If (objOUMember.cn = "j*")Then


            'Traitement


        End If


    Next


Mais le probl&#232;me avec cette solution c'est que je teste ma condition dans la boucle et comme j'ai 4000 utilisateurs &#224; cet endroit l&#224; et beh &#231;a met en moyenne 7 min !
En gros : COMMENT PUIS-JE FAIRE POUR GAGNER DU TEMPS ? Je crois que c'est possible avec un filtre, mais comment ?


SVP, aidez moi. Merci.

cs_Stephane33 · Answer

Tu n'as pas de possbilit&#233; avec "objOU.Filter = Array(?????)"

Ant8386 · Answer

Oui mais comment manipule-t-on array pour faire le filtre ???

J'ai d&#233;j&#224; vu des trucs du style : objOU.Filter = Array("user") 
mais &#231;a c'est pas pour une propri&#233;t&#233; d'un utilisateur c'est pour un utilisateur tout court.
Je veux faire mon filtre sur une propri&#233;t&#233; et je ne sais pas faire.

En fait pour r&#233;sumer je descends correctement dans la bonne unit&#233; d'organisation que je veux gr&#226;ce au chemin LDAP mais le probl&#232;me est que dans cette OU il y a 4000 utilisateurs et il y en a que 26 qui m'int&#233;resse pour mon extraction !!!
Jusqu'&#224; maintenant je bouclais sur les 4000 et je regardais si pour chacun la condition &#233;tait remplie : seulement &#231;a, &#231;a met environ 10 min. Je voudrai pouvoir optimiser l'extraction avec un filtre.

As-tu une chtite id&#233;e ?

Ant8386 · Answer

Pas d'id&#233;e ? C'est faisable ce truc non ?

Ant8386 · Answer

je cherche toujours...

Ant8386 · Answer

Dites moi si c possible au moins SVP
C'est tr&#232;s important !

Aide SVP - VBA & Manipulation LDAP

5 réponses

Discussions similaires