Ping Test

[Andre]

Hi,

Some code to "ping" various hosts to see if they are alive.

Create an pingtesthosts.txt in the same directory where the script is running.

Should contain the hostnames (ip's)

expandcollapse popup

----------------------------------------------------------------------------
;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x / NT
; Author:         Andre Jeanmaire (andre.jeanmaire@mm-karton.com)
;
; Script Function:
;   Ping various hosts to see if they exist.
; Read them from PingTestHosts.txt
; ----------------------------------------------------------------------------

HotKeySet("^+~","Exitfunc")


$HostFile = "PingTestHosts.txt"

$sCmd = "ping.exe"
$SOption  = "-w 50"


While 1
$file = FileOpen($HostFile, 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(16,"Error","Sorry can't proceed." & @CRLF & "The File : 'PingTestHosts.txt' is missing in application directory")
    Exit
EndIf


    
; Read in lines of text until the EOF is reached

    While 1
    $Host = FileReadLine($file)
    If @error = -1 Then ExitLoop
    $SCmdParm = $Host   
  $iRetCode = RunWait( $sCmd & " " & $sCmdParm & " " & $SOption,"",@SW_hide)
  If $IRetCode = 1 Then
     TrayTip("Ping ?","No answer from " & $Host & " at : " & @HOUR & ":" & @MIN & ":" & @SEC ,25, 3)
  EndIF
    WEND
  FileClose($File)
    Sleep(60000); Every minute
Wend

Func ExitFunc()
    $Answer = MsgBox(4,"PingTest", "End Program ? ")
    If $Answer <> 7 Then Exit

EndFunc