All pastes #736007 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-10-14 01:56 UTC
rendered paste body
   Set oWshShell = WScript.CreateObject("WScript.Shell")
   strAnswer = InputBox("Please enter the System's Name:", _
   "Pinger")
   sCommand = "ping.exe -t" & strAnswer
If strAnswer = "" Then
    Wscript.Quit
if strAnswer = "You are a moron" then
    Wscript.Echo("I KNOW!!") 
Else
    oWshShell.Run(sCommand)
End If