Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1444 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Aide SVP - VBA & Manipulation LDAP

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Aide SVP - VBA & Manipulation LDAP

n°1135006
Ant8386
Posté le 29-06-2005 à 17:23:17  profilanswer
 

Bonsoir à tous,
 
Alors voilà j'ai un annuaire LDAP dans lequel je veux extraire des informations d'utilisateurs qui ne possèdent qu'une certaine valeur pour une certaine propriété.
 
J'ai trouvé 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" )
    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ème : c'est du .NET et j'aimerai faire ç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"
 
    Set objOU = GetObject(ADSIPath)
 
    For Each objOUMember In objOU
 
        If (objOUMember.cn = "j*" )Then
 
            'Traitement
 
        End If
 
    Next
 
Mais le problème avec cette solution c'est que je teste ma condition dans la boucle et comme j'ai 4000 utilisateurs à cet endroit là et beh ç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.

mood
Publicité
Posté le 29-06-2005 à 17:23:17  profilanswer
 

n°1135389
Ant8386
Posté le 30-06-2005 à 08:39:51  profilanswer
 

Personne ne peut m'aider ?
 
En fait pour résumer je descends correctement dans la bonne unité d'organisation que je veux grâce au chemin LDAP mais le problème est que dans cette OU il y a 4000 utilisateurs et il y en a que 26 qui m'intéresse pour mon extraction !!!
Jusqu'à maintenant je bouclais sur les 4000 et je regardais si pour chacun la condition était remplie : seulement ça, ça met environ 10 min. Je voudrai pouvoir optimiser l'extraction avec un filtre.
 
 
SVP... Merci

n°1135450
Ant8386
Posté le 30-06-2005 à 09:45:34  profilanswer
 

à croire que ça n'inspire vraiment personne...
Je suis sur que c'est pas dur à faire mais moi sans un ptit bout d'aide je n'y arriverai pas.

n°1135782
Ant8386
Posté le 30-06-2005 à 12:44:22  profilanswer
 

je suis toujours en train de chercher donc si toutefois une ame charitable pouvait me dépanner...

n°1136129
Ant8386
Posté le 30-06-2005 à 16:10:34  profilanswer
 

dites moi au moins si c'est possible SVP
c'est très important pour moi

n°1136155
EscartePhi​l
Posté le 30-06-2005 à 16:23:13  profilanswer
 

Salut,
Je ne suis pas un expert (loin de là!) mais il me semble qu'un filtre fonctionne justement sur le principe d'une condition.... donc en fait ta condition
      If (objOUMember.cn = "j*" )
est déjà un filtre.......
me suis-tu?
Bref, il me semble que tu ne peux pas filtrer tes 4000 utilisateurs sans parcourir auparavant toute la liste... dc perdre 10 min.
Le seul moyen que j'ai trouvé pour gagner du temps avec les macro, c'est de travailler avec des matrice/tableau plutot qu'avec des cellules (je bosse sur excel). en clair tu transferre ta base dans un tableau virtuel puis tu bosse avec ce tableau.
Sans mentir, je suis passé de 70 MINUTES à 35 SECONDES pour l'exécution d'une macro grace à cette technique.
Je peux t'assurer que mon maitre de stage était content ;)
 
Moi aussi je bloque sur un truc, si tu pouvais m'aider... j'ai laisé un post.. Merci!

n°1136182
Ant8386
Posté le 30-06-2005 à 16:40:28  profilanswer
 

moi aussi c pour mon stage !
Le problème c'est que je veux pas passer par un doc excel car j'évite déjà un csv volontairement alors c'est pas pour derrière repasser par un xls

n°1136191
Ant8386
Posté le 30-06-2005 à 16:42:52  profilanswer
 

ps : je viens de lire ton poste, dsl mais je suis également novice en vba donc là...


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Aide SVP - VBA & Manipulation LDAP

 

Sujets relatifs
vbs et manipulation de wordurgent aide sur mon code
Aide pour des scriptsVBA et les combobox
aide pour coordination entre 2 feuilles excelenregistrer document word par VBA sous excel [résolu]
Pourquoi pas LDAP ?Aide !
Problem MySQL et Phpmyadmin >HELP SVP !!<[VBA] lien avec du PHP pour commander Excel
Plus de sujets relatifs à : Aide SVP - VBA & Manipulation LDAP


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR