的CreateObject（“MSXML2.ServerXMLHTTP.6.0”）

我目前正在创buildCreateObject("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，看看它在哪里试图findDLL和regsvr32的msxml6.dll