msxml*.dll 错误 ‘80072f7d‘ 安全频道支持出错 解决方案

诡异的 msxml6.dll错误 '80072f7d'安全频道支持出错,用 SSLTools.exe 修复的方法无效!!!

'---------------------------------------------------------------

有如下简要 ASP 代码,用于获取网页链接返回内容:

vbscript 复制代码
'----- ASP 获取链接内容
Function GetBody(url) 
	dim ObjXML		
	Set ObjXML =server.CreateObject ("Msxml2.ServerXMLHTTP.6.0") 	'("WinHttp.WinHttpRequest.5.1")  '("Microsoft.XMLHTTP")        
		ObjXML.Open "Get", url, False, "", "" 		
		ObjXML.Send	'这里报	msxml6.dll错误 '80072f7d'安全频道支持出错		
		GetBody = ObjXML.ResponseText
	Set ObjXML = Nothing 		
End Function

在之前的所有机器上运行都正常,最近新开了一台CTYUN的,2016被我降级为 windows2008R2,结果获取http内容没问题,而之前获取https正常的代码全部没有了返回值,还会卡顿一下,测试了一晚上才发现是 .send 那里出现的问题,打开错误显示发现报错内容:"msxml6.dll 错误 '80072f7d'安全频道支持出错",

更换了所有版本的 ("Msxml2.ServerXMLHTTP.6.0") ("msxml2.xmlhttp.6.0") ("msxml2.xmlhttp.3.0") ("msxml2.xmlhttp") '("WinHttp.WinHttpRequest.5.1") 都是报这个错误,而用老的 '("Microsoft.XMLHTTP") 则卡顿更严重直接没有返回任何错误信息。

vbscript 复制代码
<%
call getXmlHttpVer()
Function getXmlHttpVer()
  dim i,xmlHttpVersions,xmlHttpVersion
  getXmlHttpVer = false
  xmlHttpVersions = Array("Microsoft.XMLHTTP", "MSXML2.XMLHTTP", "MSXML2.XMLHTTP.3.0","MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.5.0","MSXML2.XMLHTTP.6.0")
  for i = ubound(xmlHttpVersions) to 0 step -1
   xmlHttpVersion = xmlHttpVersions(i)
		if isInstallObj(xmlHttpVersion) then 
			getXmlHttpVer = xmlHttpVersion 
			response.write i+1 & " ok:  " & xmlHttpVersion & "  is Install! </br>" & vbcrlf
			'Exit Function			
		end if
  next 
  

  
End Function

Function isInstallObj(objname)
  dim isInstall,obj
  On Error Resume Next
  set obj=server.CreateObject(objname)
  if Err then 
   isInstallObj = false : err.clear 
  else 
   isInstallObj=true:set obj = nothing
  end if
End Function

%>
<%
' 创建一个对象数组,包含不同版本的XMLHTTP对象
Dim objXMLHTTPVersions,objXMLHTTP
 objXMLHTTPVersions = Array("WinHttp.WinHttpRequest.5.1","Microsoft.XMLHTTP", "MSXML2.XMLHTTP", "MSXML2.XMLHTTP.3.0","MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.5.0","MSXML2.XMLHTTP.6.0","Msxml2.ServerXMLHTTP",, "Msxml2.ServerXMLHTTP.3.0", "Msxml2.ServerXMLHTTP.4.0", "Msxml2.ServerXMLHTTP.5.0","Msxml2.ServerXMLHTTP.6.0")

' 遍历数组,尝试创建每个版本的对象
Dim i
For i = 0 To UBound(objXMLHTTPVersions)
    On Error Resume Next ' 启用错误忽略
    Set objXMLHTTP = Server.CreateObject(objXMLHTTPVersions(i))
    If Err.Number = 0 Then ' 如果没有错误,说明当前版本的对象被成功创建
        Response.Write("支持版本: " & objXMLHTTPVersions(i) & "<br>")
    Else
        Err.Clear ' 清除错误
    End If
    On Error GoTo 0 ' 恢复默认的错误处理
Next

' 清理对象
Set objXMLHTTP = Nothing

%>

查了一晚上AI都没解决,最后找到:解决安全频道支持出错,代码:80072F7D问题_win7 安全频道支持出错-CSDN博客,他的是VBS+("WinHttp.WinHttpRequest.5.1")故障,

我照着微软的解决方案:更新了 以在 Windows 中的 WinHTTP 中启用 TLS 1.1 和 TLS 1.2 作为默认安全协议 - Microsoft 支持

之中的方法二,仅添加了注册表项,重启服务器居然就可以获取https链接工作了!

WinHTTP 的解决方案对 XMLHTTP 一样有效,相当诡异!!!

如需修复的,懒得手动添加注册表的,可以使用简易工具: https://download.microsoft.com/download/0/6/5/0658B1A7-6D2E-474F-BC2C-D69E5B9E9A68/MicrosoftEasyFix51044.msi

---- 此记!

相关推荐
CodeCraft Studio7 分钟前
借助Aspose.HTML控件,在 Python 中将 HTML 转换为 Markdown
开发语言·python·html·markdown·aspose·html转markdown·asposel.html
QQ_4376643148 分钟前
C++11 右值引用 Lambda 表达式
java·开发语言·c++
aramae8 分钟前
大话数据结构之<队列>
c语言·开发语言·数据结构·算法
封奚泽优31 分钟前
使用Python实现单词记忆软件
开发语言·python·random·qpushbutton·qtwidgets·qtcore·qtgui
liulilittle2 小时前
C++/CLI与标准C++的语法差异(一)
开发语言·c++·.net·cli·clr·托管·原生
daixin88482 小时前
什么是缓存雪崩?缓存击穿?缓存穿透?分别如何解决?什么是缓存预热?
java·开发语言·redis·缓存
你我约定有三2 小时前
RabbitMQ--消息丢失问题及解决
java·开发语言·分布式·后端·rabbitmq·ruby
张北北.2 小时前
【深入底层】C++开发简历4+4技能描述6
java·开发语言·c++
李永奉3 小时前
STM32-定时器的基本定时/计数功能实现配置教程(寄存器版)
c语言·开发语言·stm32·单片机·嵌入式硬件
go54631584653 小时前
中文语音识别与偏误检测系统开发
开发语言·人工智能·学习·生成对抗网络·数学建模·语音识别