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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu][VBS Débutant Boucle Do-While-Loop Active Directory]

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Résolu][VBS Débutant Boucle Do-While-Loop Active Directory]

n°1510876
_alex67
Posté le 05-02-2007 à 12:49:22  profilanswer
 

Bonjour,
 
je souhaite faire des modifs dans mon AD à partir d'un fichier Excel qui contient la liste des users concernés.
lorsque cela ne concerne qu'un user, (sans boucle), ca fonctionne bien et le vbs lit bien le contenu de mon fichier.
mais dès que je mets un Do While Loop, ca semble boucler sans fin et ca me prend un max de ressources systeme.
voici le code :  

Code :
  1. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2. ' Nom du Fichier Utilisateurs
  3. liste = "G:\Scripts\test\testmodifuser.xls"
  4. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5. ' Ouverture du fichier Excel
  6. Set objShell = wscript.createobject("wscript.shell" )
  7. Set objExcel = CreateObject("Excel.Application" )
  8. Set objSpread = objExcel.Workbooks.Open(liste)
  9. '============================================
  10. ' Boucle d'extraction des donn‚es Excel ligne par ligne [-d‚tail-]
  11. ' Commence ligne 2 et colonne 1
  12. ' S'arrete quand cellule ligne #i, colonne 1 = VIDE
  13. '=======================================================================
  14. ligne = 2
  15. Do While objExcel.Cells(ligne,1).Value <> ""
  16. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  17. ' Assignation de chaque colonne Excel dans une variable
  18. nom = Trim(objExcel.Cells(ligne,1).value) 'NOM de l'utilisateur
  19. prenom = Trim(objExcel.Cells(ligne,2).value) 'PRENOM de l'utilisateur
  20. Set objUser = GetObject("LDAP://CN=" &nom &",OU=OU_TEST, DC=TOTO" )
  21. objUser.Put "Description", "oki"
  22. objUser.SetInfo
  23. ligne=ligne+1
  24. Loop
  25. objExcel.Quit
  26. set objExcel=nothing
  27. MsgBox "FIN"
  28. WScript.Quit


 
Merci de votre aide

Message cité 1 fois
Message édité par _alex67 le 05-02-2007 à 17:26:49
mood
Publicité
Posté le 05-02-2007 à 12:49:22  profilanswer
 

n°1511049
_alex67
Posté le 05-02-2007 à 17:25:13  profilanswer
 

_alex67 a écrit :


Code :
  1. Do While objExcel.Cells(ligne,1).Value <> ""




 
j'ai modifié ma boucle par un Do Until et ca passe :

Code :
  1. Do until objExcel.cells(ligne,1).value = ""


 
-> Résolu


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

  [Résolu][VBS Débutant Boucle Do-While-Loop Active Directory]

 

Sujets relatifs
problème mmap avec un deamon [résolu][Pb]Projet en C : Distributeur de boisson
[résolu] Créer un fichier .bat (l'intérieur du fichier)Erreur sous C# [Autre soucis]
Question con VBA<->VBSOracle 10g R2 - Windows 2003 server - Active Directory
failed to open stream: No such file or directory[VB/VBA/VBS] Ajouter un réseau sans fil sous Windows XP
[RESOLU][PHP] Récupération signature md5 d'un répertoire 
Plus de sujets relatifs à : [Résolu][VBS Débutant Boucle Do-While-Loop Active Directory]


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