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 |
