1

我需要从 VBScript 向受 SSL 保护的域发出 HTTP 请求。由于 SSL 证书信任失败,我用来执行此操作的库 ServerXMLHTTP 似乎无法连接。这看起来很奇怪,因为当我在 Google Chrome 中浏览域时,它会报告整个证书链是受信任的。

在 ServerXMLHTTP 对象上设置“SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS”选项没有任何区别。

Windows 事件查看器中的“系统”日志包含一个带有数字代码的错误,该代码转换为以下内容,这与 VBScript 错误一致:“TLS1_ALERT_UNKNOWN_CA 48 SEC_E_UNTRUSTED_ROOT 0x80090325”

虽然一个直接的解决方案显然是可取的,但我同样有兴趣知道如何开始解决这样的问题,而无需求助于 StackOverflow 寻求帮助。

这是我的脚本:

Dim http

Set http = CreateObject("Msxml2.ServerXMLHTTP.6.0")

http.Open "GET", "https://us.api.concursolutions.com/"

http.setOption 2, 13056 'sets the option "SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS" to "SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS"

http.Send

WScript.Echo http.responseText

Set http = Nothing

VBScript 报告证书信任错误 在事件查看器中查看的系统错误 Chrome 对证书链很满意

4

0 回答 0