Timeout für HTTP-Resquest

Gibt es eine andere ProgID statt "MSXML2.XMLHTTP", die Sie können ein Zeitlimit in VBScript?
OnReadyStateChange oder ähnlich muss auch die Arbeit in VBScript.

Set oHTTP = CreateObject("MSXML2.XMLHTTP")
oHTTP.timeout = 10000 'Throws an error
oHTTP.Open "GET", "http://www.google.com", True

oHTTP.OnReadyStateChange = GetRef("oHTTP_OnReadyStateChange")

Sub oHTTP_OnReadyStateChange
    ' do something
End sub

oHTTP.Send