|
Displaying Source Code(s)
|
|
--------------------------------------------------------------------------------
Run Application (ping.exe)
--------------------------------------------------------------------------------
Description : This script uses WSH to open an executable and
save the results to a textfile
<html>
<head>
</head>
<body>
<%
Dim wsh
Set wsh = CreateObject("WScript.Shell")
Response.Write wsh.run("cmd /c C:WINNTsystem32ping.exe " & "www.src.org
> " & Server.MapPath("pingresults.txt"))
Set wsh = Nothing
Response.Redirect "pingresults.txt"
%>
</body>
</html>
|
|
|
123
Eng