Мне нужно сделать HTTP-запрос от VBScript к домену, защищенному с помощью SSL.Библиотека, которую я использую для этого, ServerXMLHTTP, похоже, не может подключиться из-за сбоя доверия SSL-сертификата.Это кажется странным, поскольку, когда я просматриваю домен в Google Chrome, он сообщает, что вся цепочка сертификатов является доверенной.
Установка параметра «SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS» для объекта ServerXMLHTTP не имеет никакого значения.
Журнал «Система» в средстве просмотра событий 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
