This works if the exe displays no output I tried it with notepad and then with a batch file but it didn't work - no error though either ! 
start a new ActiveX dll add the code below and compile it so the DLL is in your system dir (I'm not sure whether the location matters or not but for the time being it's best to narrow the odds of it working!)
Project1.Class1:
Code:
Option Explicit
Public Function RunExe(ByVal Filename As String) As Long
On Error Resume Next
Shell Filename
'return the error if any
RunExe = Err.Number
End Function
your Active server page can then call the DLL like this
runexe.asp:
Code:
<%@ Language=VBScript %>
<html>
<%
dim obj
set obj = server.CreateObject("Project1.Class1")
Response.Write("Error Code: " & obj.runexe("c:\mbs.exe"))
%>
</HTML>
Here's the trivial app to test it.
Just a module no forms.
mbs.exe:
Code:
Option Explicit
Sub Main()
Dim fnum As Byte
fnum = FreeFile
Open "C:\mbs.mbs" For Output As fnum
Print #fnum, Now()
Close fnum
End Sub
Reply With Quote
