vbscript для загрузки файла (в обход ошибок недействительного сертификата)

Question

dim xHttp: Set xHttp = createobject("microsoft.xmlhttp")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://www.website.com/apps/CertMgr.Exe", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "c:\CertMgr.Exe", 2 '//overwrite
end with

Используя приведенный выше код, я пытаюсь загрузить файл с защищенного сайта для автоматической установки сертификата безопасности, он отлично работает с http-сайта, но мне нужно обойти ошибки безопасности.Есть идеи?

Answer 1

Вам необходимо переключиться с MSXML2.XMLHTTP на MSXML2.ServerXMLHTTP и использовать метод setOption со значением SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS . Просто сделайте звонок между Open и Send. Вот ваш пример, обновленный новым кодом.

const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056
dim xHttp: Set xHttp = createobject("MSXML2.ServerXMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://www.website.com/apps/CertMgr.Exe", False
xHttp.setOption 2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "c:\CertMgr.Exe", 2 '//overwrite
end with