Const ForAppending =  8 
Const MaxTries =  1000000 
Const strMachines = "kant-db-new"
Const fanswername = "pinganswer.txt"

aMachines = split(strMachines, ";")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(fanswername, ForAppending, True)

For i= 1  To MaxTries
	For Each machine in aMachines
		Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
			ExecQuery("select * from Win32_PingStatus where address = '"_
				& machine & "'")
		For Each objStatus in objPing
			If IsNull(objStatus.StatusCode) or objStatus.StatusCode<> 0  Then 
				WScript.Echo(FormatDateTime(Now) & " Computer " & machine & " is not reachable") 
				objTextFile.WriteLine(FormatDateTime(Now) & " Computer " & machine & " is not reachable")
			Else
				WScript.Echo(FormatDateTime(Now) & " Computer " & machine & " ping OK") 
			End If
		Next
	Next
	Wscript.Sleep( 3000 )
Next

objTextFile.Close