<% Dim Shl,fso,FichierTxt 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 FichierTxt = fso.opentextfile("c:\testping.txt") Response.write FichierTxt.ReadAll Set fso = Nothing Set FichierTxt = Nothing %>