Batch oder VBS: Solange Pausieren, bis Ping auf eine bestimmte Adresse erfolgreich ist

do
  Wscript.Sleep 100
loop until Ping

do
  Wscript.Sleep 100
loop until Ping("hostname oder ipadresse")  

Wscript.Quit

Function Ping( myHostName )
' This function returns True if the specified host could be pinged.  
' myHostName can be a computer name or IP address.  
' The Win32_PingStatus class used in this function requires Windows XP or later.  
' This function is based on the TestPing function in a sample script by Don Jones  
' http://www.scriptinganswers.com/vault/computer%20management/default.asp#activedirectoryquickworkstationinventorytxt  

    ' Standard housekeeping  
    Dim colPingResults, objPingResult, strQuery

    ' Define the WMI query  
    strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & myHostName & "'"  

    ' Run the WMI query  
    Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery( strQuery )  

    ' Translate the query results to either True or False  
    For Each objPingResult In colPingResults
        If Not IsObject( objPingResult ) Then
            Ping = False
        ElseIf objPingResult.StatusCode = 0 Then
            Ping = True
            exit function
        Else
            Ping = False
        End If
    Next

    Set colPingResults = Nothing
End Function

@echo off

:: Anzahl der maximalen Loops, bis der Prozess beendet wird (300 x 1s = 5 Minuten)
set maxloop = 300

for /l %%i in (1, %maxloop%) do (
	ping %server% -n 1 >nul 2>nul
	if errorlevel 0 goto :continue
) 

:continue
:: Server gefunden, Ausführung fortsetzen