dim o_msxml3 : set o_msxml3 = CreateObject("MSXML2.XMLHTTP.3.0")
a_addresses = Array( "127.0.0.1:44", "http://192.168.0.1:444", "192.168.1.3:80", "192.168.1.2:44")

for each address in a_addresses
  wscript.echo address & " - " & Test(address)
next

Function Test(s_address)

    on error resume next

    o_msxml3.open "GET", s_address, false
    o_msxml3.send

    if err.Number <> 0 then
      Test = "No Reply"
      exit function
    end if

    select case o_msxml3.status
      case "200"
        Test = "200:OK"
      case "301"
        Test = "301:OK"
      case else
        Test = o_msxml3.status & ":No Reply"
    end select

end function

set o_msxml3 = nothing