CreateObject("MSXML2.ServerXMLHTTP.6.0")

Question

我目前面临着一些关于创建CreateObject("MSXML2.ServerXMLHTTP.6.0")对象的问题。

Public Function PrepareHttpRequest(Request As RestRequest, TimeoutMS As Long, _
Optional UseAsync As Boolean = False) As Object
Dim Http As Object
**Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")**

' Set timeouts
Http.setTimeouts TimeoutMS, TimeoutMS, TimeoutMS, TimeoutMS

' Add general headers to request
Request.AddHeader "User-Agent", UserAgent
Request.AddHeader "Content-Type", Request.ContentType

If Request.IncludeContentLength Then
    Request.AddHeader "Content-Length", Request.ContentLength
Else
    If Request.Headers.Exists("Content-Length") Then
        Request.Headers.Remove "Content-Length"
    End If
End If

' Pass http to request and setup onreadystatechange
If UseAsync Then
    Set Request.HttpRequest = Http
    Http.onreadystatechange = Request
End If

Set PrepareHttpRequest = Http
End Function

上面的代码对于一些用户来说工作得很好，但在一些用户机器上却失败了。任何人都可以提供必要的更改来解决问题。

Answer 1

尝试：

Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")

否则，输入一个On Error Goto ln，告诉我们Err.Description是什么，然后谷歌一下

运行ProcessMonitor查看它试图找到DLL的位置并regsvr32 msxml6.dll