PING D'UNE LISTE DE POSTE : WHOSBAD

<%
    Set MyShell = CreateObject("WScript.Shell")
    Set MyFiles = CreateObject("Scripting.FileSystemObject")

szPathFile= "resip.txt"
szListIPFile = "PosteAtester.lst"
'récup des adresses ip à tester
Set FileListDesIP = MyFiles.OpenTextFile(server.mappath(szListIPFile), 1) ' for reading
do
    On Error Resume Next
    ' lecture du nouveau rep à créer
    szIPATester = FileListDesIP.ReadLine
    If Err.number = 62 Then ' si fin du fichier
        Exit do
    End If

    On Error GoTo 0
    f_doPing(szIPATester)
loop

function f_doPing(szAdressIP)
    szExec="%comspec% /c ping.exe -n 1 -a" & " " & szAdressIP & " " & ">" & server.mappath(szPathFile)
    Return = MyShell.Run(szExec, 0, True) 
    Set TempFile =MyFiles.OpenTextFile(server.mappath(szPathFile))
    szResult = Tempfile.Readall
    
    ' récupération du nom du serveur si il est disponible
    if instr(szResult, "[" & szAdressIP & "]") > 0 then
        posDeb =instr(szResult, "'ping' sur ") +11
        posfin =instr(szResult, "[" & szAdressIP & "]")
        sznomServeur = mid(szResult, posdeb, posfin-posdeb)
        '   response.write("szResult='" & szResult & "'")
        'sznomServeur = ""
    else
        sznomServeur = "IP"
    end if
    
    If instr(szResult, "ponse ") > 0 Then
'    If instr(szResult, "(perte 0%)") > 0 Then
        response.write(sznomServeur& " : " & szAdressIP & " --> OK" & vbcrlf)
    Else
        response.write("<B>" & sznomServeur & " : " & szAdressIP & " --> KO</B>" & vbcrlf)
    End if
    response.write("<br>")
    tempfile.close
    'tempfile.delete
end function
%>