Ping d'une liste de poste : whosbad

Commenter

Contenu du snippet

un programme de moins de 50 lignes qui permet de tester l'activité IP d'une liste de poste pour voir si l'un d'entre eux n'est pas KO. La liste est saisie dans un fichier à part (dans mon cas 'posteAtester.lst').
je passe par un fichier qui se crée sur le répertoire, il faut penser à autoriser l'écriture.

Source / Exemple : 


<%
    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
%>

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_defrance)