Vbscript msxml3.dll错误'；80090326'；收到的消息是意外的或格式不正确

谁能告诉我，为什么这段代码在windows7上有效，而在WindowsXP上无效

错误

URL = "https://github.com/index.html"
Set xHttp = CreateObject("MSXML2.ServerXMLHTTP")
xHttp.Open "GET", URL, False
xHttp.setOption 2, 13056
xHttp.Send()

---

在

xHttp.Send

上，如果您将MSXML2.ServerXMLHTTP更改为MSXML2.XMLHTTP或Microsoft.XMLHTTP它是否适用于您

尝试使用此代码，并告诉我们是否出现相同的错误（仅在windows 7上测试）

出错时继续下一步
Set File=WScript.CreateObject（“MSXML2.XMLHTTP”）
文件。打开“获取”https://github.com/index.html”“错
“这是IE 8头
File.setRequestHeader“用户代理”、“Mozilla/4.0（兼容；MSIE 8.0；Windows NT 6.0；Trident/4.0；SLCC1；.NET CLR 2.0.50727；Media Center PC 5.0；.NET CLR 1.1.4322；.NET CLR 3.5.30729；.NET CLR 3.0.30618；.NET4.0C；.NET4.0E；BCD2000；BCD2000）”
文件。发送
如果错误号为0，则
line=“”
行=行和vbcrlf&“”
Line=Line&vbcrlf&“获取文件时出错”
行=行和vbcrlf&“================================================”
行=行和vbcrlf&“”
Line=Line&vbcrlf&“Error”&err.number&“（0x”&hex（err.number）&“”&err.description
Line=Line&vbcrlf&“Source”&err.Source
行=行和vbcrlf&“”
Line=Line&vbcrlf&“HTTP错误”&File.Status&&File.StatusText
Line=Line&vbcrlf&File.getAllResponseHeaders
回音行
清楚
wscript.quit
如果结束
错误转到0
设置BS=CreateObject（“ADODB.Stream”）
设置ws=CreateObject（“wscript.Shell”）
BS.type=1
英国公开赛
BS.Write File.ResponseBody
BS.SaveToFile“Location.html”，2
ws.run“Location.html”

我最近在尝试通过https在Windows 2003服务器上检索文件时遇到了类似的问题。问题是，客户端支持的SSL/TLS密码集太旧，服务器上不支持

---

在我的例子中，服务器在一个AWS ELB后面，它正在进行https协商。我能够将ELB重新配置为使用旧密码集（在“侦听器”选项卡中，将密码配置更改为使用ELBSecurityPolicy-2015-05），客户端脚本神奇地开始工作。

我们必须在Windows 2003服务器中安装以下KB：

在此之后，另一个错误是：

msxml3.dll错误“80072f7d”

安全通道支持中出现错误

多亏了这篇文章（）安装并运行了

---

当应用于生产时，只有第一个KB解决了问题。

是的，如果我将MSXML2.ServerXMLHTTP更改为MSXML2.XMLHTTP，它对我有效。我使用setoption，MSXML2.XMLHTTP写入“对象不支持此属性或方法”

msxml3.dll error '80090326' `
The message received was unexpected or badly formatted.`

On Error Resume Next
 Set File = WScript.CreateObject("MSXML2.XMLHTTP")
 File.Open "GET", "https://github.com/index.html", False
 'This is IE 8 headers
 File.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)"
 File.Send
 If err.number <> 0 then 
    line =""
    Line  = Line &  vbcrlf & "" 
    Line  = Line &  vbcrlf & "Error getting file" 
    Line  = Line &  vbcrlf & "==================" 
    Line  = Line &  vbcrlf & "" 
    Line  = Line &  vbcrlf & "Error " & err.number & "(0x" & hex(err.number) & ") " & err.description 
    Line  = Line &  vbcrlf & "Source " & err.source 
    Line  = Line &  vbcrlf & "" 
    Line  = Line &  vbcrlf & "HTTP Error " & File.Status & " " & File.StatusText
    Line  = Line &  vbcrlf &  File.getAllResponseHeaders
    wscript.echo Line
    Err.clear
    wscript.quit
 End If

On Error Goto 0

 Set BS = CreateObject("ADODB.Stream")
 Set ws = CreateObject("wscript.Shell")
 BS.type = 1
 BS.open
 BS.Write File.ResponseBody
 BS.SaveToFile "Location.html", 2
 ws.run "Location.html"