VB6 MSXML2“证书中的主机名无效或不匹配。”

此代码在2台不同的WIN7机器上工作，但在2台不同的XP机器上失败：

公共函数GetLocationTemperatureurlString为字符串，ByRef kPa为单字符串为单字符串

关于错误转到错误处理程序

Dim website As Object
Set website = CreateObject("MSXML2.ServerXMLHTTP.6.0")

'website.setOption(2) = (website.getOption(2) = SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS

Call website.open("GET", urlString, False)
Call website.send("")
........

在XP运行时，website.send报告一个错误，证书中的主机名无效或不匹配

SXH_服务器\u证书\u忽略\u所有\u服务器\u错误在WIN7中不是必需的，在XP中也没有帮助

---

有什么建议吗？谢谢。

已通过网站修复。设置选项2，13056，不知道为什么，但我不在乎。

来自MSDN:SXH\u服务器\u证书\u忽略\u所有\u服务器\u错误=13056