无法在 asp 站点的 COM 对象中创建进程

Question

我正在更新一个已经存在的旧进程，它的工作原理如下：

用户提交一个表单，该表单运行以下 asp（简化，名称已更改）：

    <%  
    set rb = Server.CreateObject("RecordBuilder.SomeObject")  
    rb.Calculate()  
    rb.StartProcess()  
    %>

RecordBuilder.SomeObject 是旧的 VB6 DLL，我没有 VB6，所以我将其转换为 VB.Net 4.0

对Calculate() 的调用按预期工作，对StartProcess() 的调用失败。

StartProcess() 如下：

Public Function StartProcess()
    Try
        strProcess = "Starting process"
        Dim proc = New Process()
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.UseShellExecute = False
        proc.StartInfo.CreateNoWindow = True
        proc.StartInfo.FileName = "d:\App\RecordProcessor.exe"

        Dim procHandle = proc.Start()
        strProcess = "Started process"
    Catch ex As Exception
        Err.Raise(vbObjectError + 9999, "RecordBuilder.SomeObject", strProcess & " failed: " & ex.Message & "<hr />Stack Trace:<br />" & ex.StackTrace)
    End Try
End Function

调用proc.Start() 失败，但是如果我将测试ASP 复制到.vbs 文件，它将按预期工作。

我已更改d:\App\RecordProcessor.exe 的权限，以授予组Everyone 的执行权限。

Answer 1

检查网站的匿名用户帐户是否对d:\app 文件夹及其可能涉及的任何其他文件夹具有必要的权限。

我注意到缺少的一件事是 proc.WaitForExit() 在您的 proc.Start() 之后。

您可能想要这样，以便您也可以从流程本身捕获错误：

Dim stdError As New String
Try
    strProcess = "Starting process"
    Dim proc = New Process()
    proc.StartInfo.RedirectStandardOutput = True
    proc.StartInfo.RedirectStandardError = True
    proc.StartInfo.UseShellExecute = False
    proc.StartInfo.CreateNoWindow = True
    proc.StartInfo.FileName = "d:\App\RecordProcessor.exe"

    Dim procHandle = proc.Start()
    strProcess = "Started process"

    proc.WaitForExit()

    stdError = proc.StandardError.ReadToEnd()
    If stdError.Length > 0 Then
       '' So long since I did VB so next line might need tweaked
       Err.Raise(vbObjectError, "Caught StdError", stdError)
    End If
Catch ex As Exception
    Err.Raise(vbObjectError + 9999, "RecordBuilder.SomeObject", strProcess & _
         " failed: "  & ex.Message & "<hr />Stack Trace:<br />" & ex.StackTrace)
End Try