VBScript - назначить исходный код веб-страницы переменной

Question

Я пытаюсь написать VBScript, который выглядит для навигации по сайту на основе содержимого этого сайта.Чтобы сделать это, мне нужно иметь возможность назначить исходный код каждой веб-страницы в строковую переменную и сделать так, чтобы скрипт просматривал эту строку на предмет определенных слов.

Я видел это предложение как решение:

Function GetSourceCode(url)
     Set objHttp = CreateObject("Microsoft.XMLHTTP")
     bGetAsAsync = False

     objHttp.open "GET", url, bGetAsAsync
     objHttp.send

     If objHttp.status <> 200 Then
         wscript.Echo "unexpected status = " & objHttp.status & vbCrLf & objHttp.statusText
         wscript.Quit
     End If

     'MsgBox objHttp.responseText

     GetSourceCode = objHttp.responseText
End Function

, но это не работает.В других местах я видел, что это возможно с AutoIT, но я не могу использовать AutoIT для каждой политики безопасности.

Есть идеи?

Answer 1

Изменить Microsoft.XMLHTTP на Msxml2.ServerXMLHTTP

Function GetSourceCode(url)
     Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")
     bGetAsAsync = False

     objHttp.open "GET", url, bGetAsAsync
     objHttp.send

     If objHttp.status <> 200 Then
         wscript.Echo "unexpected status = " & objHttp.status & vbCrLf & objHttp.statusText
         wscript.Quit
     End If

     'MsgBox objHttp.responseText

     GetSourceCode = objHttp.responseText
End Function

WScript.Echo GetSourceCode("https://anothervps.com/api/phpver")