Stoprovando questo script che verifica se il dominio č libero o no, ma ricevo un'errore e non riesco a risolverlo, qualcuno mi sā aiutare?

codice:
<%
' Dominio da controllare
dominio = "asp.net"

' URL da richiamare
url = "http://www.internic.net/cgi/whois?whois_nic=" & dominio & "&type=domain"

' creiamo l'oggetto WinHTTP
Set objHTTP = Server.CreateObject("WinHTTP.WinHTTPRequest.5")
objHTTP.Open "GET", url

' inviamo la richiesta
objHTTP.Send

' codice di stato
if CINT(objHTTP.Status) = 200 then
    ' testo della risposta
    strHTML = LCase(objHTTP.ResponseText)
    ProcessaRisposta(strHTML)
else
    Response.Write "

Risposta del server remoto: (" & objHTTP.Status & ")"
    Response.write objHTTP.StatusText & "</P>"

end if

' un po' di pulizia
Set objHTTP = Nothing

Sub ProcessaRisposta(strHTML)
  if instr(strHTML, "no match") or instr(strHTML, "not found") then
    Response.write ("Dominio disponibile")
  elseif instr(strHTML, "domain name") or instr(strHTML, "no information") then
    Response.write ("Dominio occupato")
  else
    Response.write ("Caratteri non validi nel nome di dominio")
  end if
end sub

%>
Errore
------------------------------------
Tipo di errore:
Oggetto Server, ASP 0177 (0x800401F3)
ProgID non valido. Per ulteriori informazioni sul messaggio, visitare il sito Internet del Servizio Supporto Tecnico Microsoft all'indirizzo: http://www.microsoft.com/contentredirect.asp.
-------------------------------------

Ho cercato su Microsoft, ma alla fine non capito cosa devo installare per farlo funzionare..ho aggiornato MSXML, ma non č servito a nulla.