ASPExec Ping Test

<% if Request.QueryString("host") = "" then %>
Enter Host to Ping:    
<% else Set Executor = Server.CreateObject("ASPExec.Execute") Executor.Application = "ping" Executor.Parameters = Request.QueryString("host") strResult = Executor.ExecuteDosApp Response.Write "
" & strResult & "
" end if %>