programa .exe con còdigo asp

[Turrete]

<%
'--el ejemplo muestra como ejecutar el comando ping.exe (o cualquier otro) y mostrar los resultados en un archivo de texto.

dim wsh
set wsh = createobject("WScript.Shell")

response.write wsh.run("cmd /c C:\WINNT\system32\ping.exe " & "www.sitioapinguear.com.ar > " & server.mappath("pingresults.txt"))
set wsh = nothing
response.redirect "pingresults.txt"

%>

Saludos