Set oWshShell = WScript.CreateObject("WScript.Shell")
   strAnswer = InputBox("Please enter the System's Name:", _
   "Pinger")
   sCommand = "ping -t " & strAnswer
If strAnswer = "" Then
    Wscript.Quit
Else
    oWshShell.Run(sCommand)
    MsgBox strAnswer & sCommand
End If