strMachines = "10.1.1.3"

' you only need to create this object once, so it is put outside the loop
Set objWMI = GetObject("winmgmts:")

bolIsAlive = False ' init value

Do While True
Set objPing = objWMI._
ExecQuery("select * from Win32_PingStatus where address = '" _
& strMachines & "'")

For Each objPingStatus In objPing
If objPingStatus.StatusCode = 0 Then
bolIsAlive = True
Exit For ' no point in continuing the For loop
End If
Next

If bolIsAlive Then
Exit Do ' Exit the "eternal" loop
Else
WScript.Sleep 5000
End If
Loop
'in kix this can go to the console no biggie
WScript.Echo "Its Alive!!!"