$sIP = '10.12.3.'
$fOnline = @ScriptDir & '\OnLine.txt'
$fOffline = @ScriptDir & '\OffLine.txt'
FileOpen($fOnline, 1)
FileOpen($fOffline, 1)
FileWriteLine($fOnline, 'Start ping' & @CRLF & '--------------' & @CRLF & '--------------')
FileWriteLine($fOffline, 'Start ping' & @CRLF & '--------------' & @CRLF & '--------------')
For $i = 1 To 250
$sNow = @MDAY & '.' & @MON & '.' & @YEAR & ' ' & @HOUR & ':' & @MIN & ':' & @SEC
$iPing = Ping($sIP & $i)
If $iPing Then
FileWriteLine($fOnline, $sNow & @CRLF & $sIP & $i & ' - ' & $iPing & ' msec. - Online' & @CRLF & '--------------')
Else
FileWriteLine($fOffline, $sNow & @CRLF & $sIP & $i & ' - Offline' & @CRLF & '--------------')
EndIf
Next
FileWriteLine($fOnline, 'End ping' & @CRLF & '--------------' & @CRLF & '--------------')
FileWriteLine($fOffline, 'End ping' & @CRLF & '--------------' & @CRLF & '--------------')
FileClose($fOnline)
FileClose($fOffline)