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