All pastes #736024 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-10-14 02:18 UTC
rendered paste body
   Set oWshShell = WScript.CreateObject("WScript.Shell")
   strAnswer = InputBox("Please enter the System's Name:", _
   "Pinger")
If strAnswer = "" Then
    Wscript.Quit
Else
    oWshShell.Run("%comspec% /K title strAnswer|ping -t " & strAnswer)
End If