Удаленный запуск приложений и включение результатов их работы на ASP страницу
Бывают ситуации, когда на ASP страницу нужно вставить результат работы exe-файла. Типичный пример -
включить результат работы CGI-скрипта. Выход из ситуации - использование Windows Scripting Host версии 5.6 или выше.
Скачать последнюю версию WSH можно с сайта http://msdn.microsoft.com.
ASP-скрипт, который решает данную задачу:
<%@ Language=VBScript%>
<%option explicit%>
<%Response.Expires = 0%>
<%
Dim WshShell, oExec, inp, path, qu
'воспольз. для примера командой ping
path = "ping.exe"
qu = "127.0.0.1"
Set WshShell = Server.CreateObject("WScript.Shell")
if qu <> "" then
Set oExec = WshShell.Exec(path & " " & qu)
else
Set oExec = WshShell.Exec(path)
end if
inp = ""
'читаем из стандартного вывода
Do While Not oExec.StdOut.AtEndOfStream
inp = inp & oExec.StdOut.Read(1)
Loop
Set WshShell = Nothing
'вывод результата на страницу
Response.Write inp
%>
|
|