[VB6 en XPE] automation error, WMI fout?

[LiquidSmoke]

Ik heb een kleine simpele tool gemaakt in VB6.

Deze gebruikt WMI om dingen als Ip instellingen, computernaam etc in te stellen.

Op elke XP machine werkt dit probleemloos.

Het geval wilt dat er ook een paar ThinClients (HP T5700) staan, waar XPE op draait.

Hier geeft het tooltje een foutmelding;

Runtime error: Automation error -2147221020 (8000401E4) Invalid syntax

(de code is:

strcomputer = "."

Set objWMIService = GetObject("winmgmts:" _ <-- hier gaat het fout
& "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2")

Na een paar uur zoeken op GoT en Google lijkt het me dat er ergens op XPE iets ontbreekt, maar ik krijg het echter met geen mogelijkheid aan de praat.

Iemand die nog ideeën heeft?

[kzin]

Hoort die ampersand voor de impersonationLevel er wel? Deze dus:

& "{impersonationLevel

Misschien is XPe gewoon wat kristischer
De laatste keer dar ik iets met WMI was (op XP) deed ik het zo:

code:

objWMIService = GetObject("winMgmts:{impersonationLevel=impersonate}!//" + strComputer + "/root/cimv2");

[LiquidSmoke]

Nope, maakt geen verschil, die ampersand is omdat het op 2 regels staat.

/edit:

Ik heb even verder gezocht, en ik kan gewoon het object dus niet creëren...

Set objWMIService = GetObject("winMgmts:{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")

Is er iets niet goed geinstalleerd ofzo? (is schone image op de client).

[ Voor 65% gewijzigd door LiquidSmoke op 22-09-2006 15:47 ]

[MTWZZ]

Let op met die slashes btw.
Probeer dit eens:

Visual Basic 6:

Set objWMIService = GetObject("winMgmts:{impersonationLevel=impersonate}!\\\\" & strComputer & "\\root\\cimv2")

[LiquidSmoke]

MTWZZ schreef op vrijdag 22 september 2006 @ 16:16:
Let op met die slashes btw.
Probeer dit eens:

[/code]

Nope, dan kijg ik zelfs op een normale machine automation errors.

Kan het zijn dat HP die software zover utigekleed heeft dat de WMI gewoon kreupel is?

Hoe kan ik anders de WMI 'installeren'

zelfs een stukje code als dit werkt niet:

code:

For Each oProcess In GetObject("winmgmts:{impersonationLevel=impersonate}")._
    InstancesOf("Win32_Process")
        WScript.Echo oProcess.Name
Next

Krij ik dezelfde error

[ Voor 25% gewijzigd door LiquidSmoke op 22-09-2006 16:29 ]