Какой минимум необходим этому сценарию для запроса URL (используя метод GET)?

Question

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

script.vbs

sSrcUrl = "http://localhost:8080/trigger_url"
sDestFolder = "D:\script\"
sImageFile = "output.txt"
set oHTTP = WScript.CreateObject("MSXML2.ServerXMLHTTP")
oHTTP.open "GET", sSrcUrl, False
oHTTP.send ""
set oStream = createobject("adodb.stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
oStream.type = adTypeBinary
oStream.open
oStream.write oHTTP.responseBody
oStream.savetofile sDestFolder & sImageFile, adSaveCreateOverWrite
set oStream = nothing
set oHTTP = nothing

Какой минимум необходим этому сценарию для проверки связи с URL-адресом?

Answer 1

Если это:

   Dim sSrcUrl : sSrcUrl   = "http://localhost:8080/trigger_url"
   Dim oHTTP   : Set oHTTP = WScript.CreateObject("MSXML2.ServerXMLHTTP")
   oHTTP.open "HEAD", sSrcUrl, False
  On Error Resume Next  
   oHTTP.send ""
   If 0 = Err.Number Then
      WScript.Echo oHTTP.Status, sSrcUrl
   Else
      WScript.Echo Err.Description
   End If  
  On Error GoTo 0  

дает вам что-то вроде:

200 http://localhost:8080/trigger_url

все, что вам нужно прочитать / узнать, начиная с здесь - это ".open", ".send" и ".Status".