Code: 800A01AD beim Ausführen eines VBScript

[Stefan Müller]

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\Windows\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 !

- Dienst "Windows-Verwaltungsinstrumentation" läuft
- NOD32 Scanner wurde zum testen deaktiviert

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

--
http://sgm.dyndns.org

[Dirk Stegemann]

Hallo Stefan,

--

> 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
>

> 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
>

-- schnapp --

Vom grundsätzlichen willst du ja einfach nur per Script den Dienst mit Namen wsearch stoppen und disablen...

Hat der User mit dem du das ausführen willst denn auch das Recht dazu?

Gruß

Dirk

[Stefan Müller]

Dirk Stegemann schrieb:

Ja, ist Admin. UAC fordert eine Bestätigung der Durchführung an.
Und im zweiten Fall wird die exe via Kontextmenü als Admin gestartet.
Da beide Scripts bei ähnlichen Befehlen die Fehlermeldung bringen, ("For
Each objOperatingSystem in colOperatingSystems" bzw "For each objService
in colServices") habe ich Sie hier als Beispiel genannt.
Beide Beispiele haben auch schon einmach auf meinen System funktioniert.

MfG
STef
--
http://sgm.dyndns.org

[Dirk Stegemann]

Hallo Stefan,

--schnipp--

> > Hat der User mit dem du das ausführen willst denn auch das Recht dazu?
> Ja, ist Admin. UAC fordert eine Bestätigung der Durchführung an.
> Und im zweiten Fall wird die exe via Kontextmenü als Admin gestartet.
> Da beide Scripts bei ähnlichen Befehlen die Fehlermeldung bringen, ("For
> Each objOperatingSystem in colOperatingSystems" bzw "For each objService
> in colServices") habe ich Sie hier als Beispiel genannt.
> Beide Beispiele haben auch schon einmach auf meinen System funktioniert.

--schnapp--

Das hört sich für mich so an, als wenn mit wmi was nicht stimmt....

Also solltest du mal hier

http://windowsxp.mvps.org/repairwmi.htm

nachschauen. Da steht auch was über Vista mit dabei.

Gruß

Dirk

[Marcello]

Hallo Stefan

Ist der folgende Registry-Eintrag vorhanden?

HKEY_CLASSES_ROOT\WScript.Shell\CLSID
(Standard)
REG_SZ
{72C24DD5-D70A-438B-8A42-98424B88AFB8}

Gruss, Marcello

[Stefan Müller]

Marcello schrieb:

> Hallo Stefan
>
> Ist der folgende Registry-Eintrag vorhanden?
>
> HKEY_CLASSES_ROOT\WScript.Shell\CLSID
> (Standard)
> REG_SZ
> {72C24DD5-D70A-438B-8A42-98424B88AFB8}

Ja, Dank Dirks Tipp geht es wieder.
(http://windowsxp.mvps.org/repairwmi.htm)
Danke

[Marcello]

> Ja, Dank Dirks Tipp geht es wieder.

Dann ist ja alle bestens :-)

> (http://windowsxp.mvps.org/repairwmi.htm)

Muss ich mir auch mal anschauen.

Gruss, Marcello

[Stefan Müller]

Dirk Stegemann schrieb:

> Das hört sich für mich so an, als wenn mit wmi was nicht stimmt....

Das hast du leider Recht. Der Fehler war aber ca. 20 cm vor der Tastatur!

> Also solltest du mal hier
> http://windowsxp.mvps.org/repairwmi.htm

Danke für den Link.

> nachschauen. Da steht auch was über Vista mit dabei.

Danke, hat geholfen das die Scripts wieder laufen.
Jetzt muss nur noch raus finden warum einer der WMISvrSE.exe (zwei
Instanzen laufen) so eine hohe Systemlast verursacht.

[Stefan Müller]

Stefan Müller schrieb:
Dirks Beitrag
MID: <uxPZ#tQmJH...@TK2MSFTNGP04.phx.gbl>
brachte die Lösung:
http://windowsxp.mvps.org/repairwmi.htm