Forum Discussion
michael_sica
15 years agoNew Contributor
Thanks again. My 5-minute proof-of-concept works.
Dim objXML
Function Test404
Set objXML = CreateObject("MSXML2.XMLHTTP")
objXML.Open "GET", "http://localhost/notfound", False
objXML.Send
If (objXML.status = "404") Then
Log.Message "Test passed " & objXML.status
Else
Log.Error "Test failed " & objXML.status
End If
End Function