IP = InputBox("Geben Sie eine IP-Adresse ein!")
If IP = "" Then
wscript.quit
End If
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_PingStatus " & _
        "Where Address = '" & IP & "'")
For Each objItem in colItems
    If objItem.StatusCode = 0 Then 
        MsgBox IP & " ist erreichbar."   & vbcrlf & "R-Time: " & _
          objItem.ResponseTime
    Else
   MsgBox IP & " ist nicht erreichbar."       
    End If
Next

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell