how to use MSXML2 setTimeouts to prevent timeout error?

Question

I use the following function to check if a URL responds in a few seconds:

function testUrl(url)
    Set xmlDOM = CreateObject("MSXML2.ServerXMLHTTP.6.0"