<%
Dim Shl,fso,TextFile
Set Shl = Server.CreateObject("wscript.shell")
Shl.run "%comspec% /c ping 127.0.0.1 > c:\testping.txt",0,true
Set Shl = nothing
Set fso = createobject("scripting.filesystemobject")
Set TextFile= fso.opentextfile("c:\testping.txt")
Response.write TextFile.ReadAll

Set fso = Nothing
Set TextFile = Nothing
%>