ciao,io avrei bisogno di accedere all'elenco dei cataloghi del servizio

di indicizzazione di Windows da una pagina html per visualizzarli in

una select.
Uso il linguaggio di Scripting VBScript e secondo la documentazione

MSDN Microsoft con questa istruzione:

Set objCatAdmin = CreateObject("Microsoft.ISAdm")
' Find the first catalog
bFound = objCatAdmin.FindFirstCatalog()
If (bFound) THEN
Set objCatAdm = objAdminIS.GetCatalog()
' Work with this catalog
End If

dovrei riuscire ad ottenere la lista dei cataloghi per poi scorrerli ed

ottenerne il nome. Quando inserisco nella mia subroutine questo codice

il sistema si blocca con:

Error 8000FFFF - Errore irreparabile

senza darmi ulteriori spiegazioni,sapete aiutarmi?
grazie!