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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu][VBS Débutant Boucle Do-While-Loop Active Directory]

_alex67

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 :

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Nom du Fichier Utilisateurs
liste = "G:\Scripts\test\testmodifuser.xls"
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Ouverture du fichier Excel
Set objShell = wscript.createobject("wscript.shell" )
Set objExcel = CreateObject("Excel.Application" )
Set objSpread = objExcel.Workbooks.Open(liste)
'============================================
' Boucle d'extraction des donnes Excel ligne par ligne [-dtail-]
' Commence ligne 2 et colonne 1
' S'arrete quand cellule ligne #i, colonne 1 = VIDE
'=======================================================================
ligne = 2
Do While objExcel.Cells(ligne,1).Value <> ""
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Assignation de chaque colonne Excel dans une variable
nom = Trim(objExcel.Cells(ligne,1).value) 'NOM de l'utilisateur
prenom = Trim(objExcel.Cells(ligne,2).value) 'PRENOM de l'utilisateur
Set objUser = GetObject("LDAP://CN=" &nom &",OU=OU_TEST, DC=TOTO" )
objUser.Put "Description", "oki"
objUser.SetInfo
ligne=ligne+1
Loop
objExcel.Quit
set objExcel=nothing
MsgBox "FIN"
WScript.Quit

Merci de votre aide

Message cité 1 fois
Message édité par _alex67 le 05-02-2007 à 17:26:49

Publicité

_alex67

_alex67 a écrit :

Code :

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

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

Code :

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

-> Résolu

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<->VBS	Oracle 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]

Page générée en 0.047 secondes