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."   
    Else
	MsgBox IP & " ist nicht erreichbar."       
    End If
Next