Option Explicit
Dim WshShell, Computer, Ping, Resultat
 
Computer = Inputbox("Computer oder IP:", "")
If Computer = "" Then
  WScript.Quit
End If
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Ping = WshShell.Exec("ping -a -n 2 -w 1000 " & Computer)
Resultat = LCase(Ping.StdOut.ReadAll)
WScript.Echo Resultat