ActivX // VB Script Fehlermeldung

Hallo zusammen.
Habe ein Problem in Zusammenhang mit ActivX. Leider weiß ich nicht,
(auch nach Google-Suche) wie und wo ich bei den Problem ansetzen soll.
Aufgefallen ist es mir beim Einsatz des Indexer Gadget. Der ruft eine
vbs auf:
************************************************** **********************
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
("Select * from win32_Service where Name='wsearch'")
For each objService in colServices
errReturnCode = objService.StopService()
errReturnCode = objService.Change( , , , , "Disabled")
Next

Dim objShell, strRoot
strRoot =
"HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Wi ndows\Windows
Search\DisableBackoff"
Set objShell = CreateObject("WScript.Shell")
strModify = objShell.RegWrite(strRoot,"0", "REG_DWORD")

For each objService in colServices
errReturnCode = objService.Change( , , , , "Automatic")
errReturn = objService.StartService()
Next
************************************************** ******************************
Das Fehlerfenfster zeigt:
Zeile 7 Zeichen 1 (= die Zeile "For each objService in colServices ")
Fehler: ActiveX Komponenten kann ein Objekt nicht erstellen
Code: 800A01AD
Quelle: Laufzeitfehler in Microsoft VBScript

Der Versuch den FLV Splitter (http://www.der-wmp.de/index.htm) zu
de/installieren bringt einen Fehler in der Zeile:
"For Each objOperatingSystem in colOperatingSystems"
Also ähnlich wie der erste Fall.

Kann mir jemand bitte einen Ansatz liefern, wie ich das Problem behebe,
mir sagen wo das Problem überhaut liegt.
D A N K E !

MfG
STef

mein System:
http://sgm.dyndns.tv/system.htm

--
http://sgm.dyndns.org