VBScript does not work on XP (acpi)?

[hepek]

This VBScript I run on xp but I get error "(null): 0x8004100C" on "For each"
- line .
Do I need enable some thing or what ???

********************************

strServer = "."

Set objWMI = GetObject("winmgmts://" & strServer & "/root\WMI")
Set objInstances = objWMI.InstancesOf("MSAcpi",48)

For Each objInstance in objInstances
   WScript.Echo objInstance.getObjectText_
Next

********************************

Thank you 

-- 
View this message in context: http://www.nabble.com/VBScript-does-not-work-on-XP-%28acpi%29--tp21218437p21218437.html
Sent from the freebsd-acpi mailing list archive at Nabble.com.