script a partir d'une liste d'ordinateur en parametre

Bonjour,

Pour réaliser la boucle :
- Un "do while not fichier.AtEndOfStream .... loop" ou fichier
représente votre objet FileSystemObject.
- Un "for each .... next " qui pointe sur un tableau contenant les
valeurs de votre fichier source ( voir le bout de code ci-dessous), si vous
avez de nombreux fichiers à parcourir.

Espérant avoir répondu à votre question.

YS.

'---------------------------------------------------------------'
' '
' FONCTION lireFichier '
' '
' DESCRIPTION : Fonction permettant de lire le '
' contenu d'un fichier texte. '
' '
' ARGUMENTS : sNomFichier : Nom du fichier à ouvrir. '
' '
' RETOUR : Tableau avec le contenu de chaque ligne. '
' '
' DEPENDANCES : '
' - Objet FileSystemObject : oSystemeFichier '
' - Constante : lectureSeule '
' '
'---------------------------------------------------------------'
Function lireFichier (sNomFichier)
Dim oFluxFichier, nCompteur, oLignes()

Set oFluxFichier = oSystemeFichier.OpenTextFile (snomfichier,lectureSeule)

nCompteur = 0
Do while oFluxFichier.AtEndOfStream <> True
ReDim Preserve oLignes(nCompteur)
oLignes(nCompteur) = oFluxFichier.Readline ()
nCompteur = nCompteur + 1
Loop
oFluxFichier.Close ()

lireFichier = oLignes
End Function


----- Original Message -----
From: "Julius Marcus" <~borot~@club-internet.fr>
Newsgroups: microsoft.public.fr.scripting
Sent: Tuesday, January 24, 2006 4:25 PM
Subject: script a partir d'une liste d'ordinateur en parametre

Bonjour
je voudrais executer un script en vbs sur des machines distantes
l'idée serait d'avoir une liste de d'ordinateurs en parametre et un log en
sortie
J'ai réaliser mon scrîpt mais je ne sait pas boucler sur mon fichier liste

Pouvez vous m'aider
Merci d'avance

Merci
C'est pil ce que je voulais


"Yannick SCHAPPLER" <yannick.schappler@free.fr> a écrit dans le message de
news: eGlflPQIGHA.1760@TK2MSFTNGP10.phx.gbl...

Bonjour,

Pour réaliser la boucle :
- Un "do while not fichier.AtEndOfStream .... loop" ou fichier
représente votre objet FileSystemObject.
- Un "for each .... next " qui pointe sur un tableau contenant les
valeurs de votre fichier source ( voir le bout de code ci-dessous), si
vous avez de nombreux fichiers à parcourir.

Espérant avoir répondu à votre question.

YS.

'---------------------------------------------------------------'
' '
' FONCTION lireFichier '
' '
' DESCRIPTION : Fonction permettant de lire le '
' contenu d'un fichier texte. '
' '
' ARGUMENTS : sNomFichier : Nom du fichier à ouvrir. '
' '
' RETOUR : Tableau avec le contenu de chaque ligne. '
' '
' DEPENDANCES : '
' - Objet FileSystemObject : oSystemeFichier '
' - Constante : lectureSeule '
' '
'---------------------------------------------------------------'
Function lireFichier (sNomFichier)
Dim oFluxFichier, nCompteur, oLignes()

Set oFluxFichier = oSystemeFichier.OpenTextFile (snomfichier,lectureSeule)

nCompteur = 0
Do while oFluxFichier.AtEndOfStream <> True
ReDim Preserve oLignes(nCompteur)
oLignes(nCompteur) = oFluxFichier.Readline ()
nCompteur = nCompteur + 1
Loop
oFluxFichier.Close ()

lireFichier = oLignes
End Function


----- Original Message -----
From: "Julius Marcus" <~borot~@club-internet.fr>
Newsgroups: microsoft.public.fr.scripting
Sent: Tuesday, January 24, 2006 4:25 PM
Subject: script a partir d'une liste d'ordinateur en parametre

Bonjour
je voudrais executer un script en vbs sur des machines distantes
l'idée serait d'avoir une liste de d'ordinateurs en parametre et un log
en sortie
J'ai réaliser mon scrîpt mais je ne sait pas boucler sur mon fichier
liste

Pouvez vous m'aider
Merci d'avance