该脚本只需要请求url（使用GET方法）就需要什么？

Question

我复制了这个脚本from here，但我不知道如何修改它以使它只是将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 

什么是最小，此脚本需要只是ping通网址是什么？

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 

所有你必须阅读有关/了解开始here是 “开”， “发送” 和“ 。状态”。