[VBS] Accedere al servizio di indicizzazione

[battle]

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!

[battle]

ecco, ho creato anche un progetto di Visual Basic con un bottone che al click esegue questo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objCatAdmin As Object
Dim objCatAdm As Object
Dim bFound As Boolean
objCatAdmin = CreateObject("Microsoft.ISAdm")
' Find the first catalog
bFound = objCatAdmin.FindFirstCatalog()
If (bFound) Then
objCatAdm = objCatAdmin.GetCatalog()
' Work with this catalog
End If
End Sub

e l'eccezione che genera è la seguente (la riporto tutta):

System.Runtime.InteropServices.COMException was unhandled
ErrorCode=-2147418113
Message="Errore irreparabile
"
Source="Microsoft.ISAdm.1"
StackTrace:
at Microsoft.VisualBasic.CompilerServices.LateBinding .LateGet(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack)
at Microsoft.VisualBasic.CompilerServices.NewLateBind ing.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack)
at WindowsApplication1.Form1.Button1_Click(Object sender, EventArgs e) in C:\Documents and Settings\Oreste\Impostazioni locali\Dati applicazioni\Temporary Projects\WindowsApplication1\Form1.vb:line 9
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.O nMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallba ck(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchM essageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager. System.Windows.Forms.UnsafeNativeMethods.IMsoCompo nentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.Run MessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.Run MessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationCo ntext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsF ormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsF ormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsF ormsApplicationBase.Run(String[] commandLine)
at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.Run UsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context( Object state)
at System.Threading.ExecutionContext.Run(ExecutionCon text executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()


sapete aiutarmi?

[oregon]

Ma usi VBScript o VB.NET ??

[battle]

devo usare VBScript, per capirci di più sull'errore ho provato a creare un progetto standard Visual Basic usando Visual Studio 2005 che mi ha riportato le eccezioni che vedete sopra!