activex.net.ru

ActiveX .NET SharePoint Утилиты Скрипты Статьи ... Форум

Статьи

Удаленный запуск приложений и включение результатов их работы на 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

%>



Copyright © 2000-2017 Христофоров Юрий Rambler's Top100

   Rambler's Top100