Discussion :

[neith]

Bonjour j'ai écrit ce code, mais il ne boucle pas!!??
Je comprends pas pourquoi: un petit coup de main?
A priori la boucle ne s'execute qu'une fois.
OS: Win 2000

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Const ForReading = 1
Const ForWriting = 2
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\list_sp3\result.txt", ForWriting, true)
objTextFile.close
Set objTextFile = objFSO.OpenTextFile("C:\list_sp3\liste.txt", ForReading)
 
Do Until objTextFile.AtEndOfStream
    strComputer = objTextFile.Readline
    Set objShell = CreateObject("WScript.Shell")
	Set objScriptExec = objShell.Exec("ping -n 2 -w 1000 " & strComputer)
	strPingResults = LCase(objScriptExec.StdOut.ReadAll)
	If InStr(strPingResults, "perdus = 0") Then
		Set objTextFile = objFSO.OpenTextFile _
		("C:\list_sp3\result.txt", ForWriting)
		objTextFile.Writeline(strComputer &" OK")
	Else	
		Set objTextFile = objFSO.OpenTextFile _
		("C:\list_sp3\result.txt", ForWriting)
		objTextFile.Writeline(strComputer &" KO")
	End If
 
 
Loop

[ced600]

objTextFile contient l'objet File ouvert sur ton fichier en lecture.
Dans ta boucle tu vas remplacer cette variable par un autre objet File utilisé pour écrire dans un fichier. Dans lequel tu es forcément à la fin car tu ecris, donc cela s'arrête au premier tour de boucle.
Utilises deux variables différentes et le problème sera réglé.

[neith]

Merci,

ça coule de source maintenant que tu le dit