Vista Issue

[Jeff Barnes]

Hi,

The following code works fine in Windows XP but gives an error in Vista.
Anyone know how I can have it work in Vista ?

Code: Select all  Expand view

FUNCTION cSerialMB()
   LOCAL oLoc := CREATEOBJECT( "wbemScripting.SwbemLocator" )
   LOCAL oSrv := oLoc:ConnectServer()
   LOCAL oJbs := oSrv:ExecQuery( "SELECT * FROM Win32_BaseBoard" )
   LOCAL oJob
   LOCAL cMBSerial
   FOR EACH oJob IN oJbs
       cMBSerial := oJob:SerialNumber
   NEXT
RETURN cMBSerial

The error I get is:

Error description: Error wbemScripting.SwbemLocator/16389 E_FAIL: CONNECTSERVER

[anserkk]

Dear Mr.Jeff,

Your code is working fine here on my Vista Business Service Pack 2 and I am using FWH 9.08
I am not getting any error and your function is returning a value "To be filled by O.E.M.

Regards
Anser

[Davide]

Jeff,

StefanHaupt suggested checking if WMI is properly installed in the thread below.
viewtopic.php?f=3&t=14675

Hi,
Davide