tmplinshi

试试 "WinHttp.WinHttpRequest.5.1"

MyUrls = Array("http://192.168.1.123","http://192.168.1.124")
For Each Url In MyUrls
    Set oXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    oXMLHTTP.open "HEAD", Url
    oXMLHTTP.send
    WScript.Echo oXMLHTTP.status
Next
复制代码