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 ?
The error I get is:
The following code works fine in Windows XP but gives an error in Vista.
Anyone know how I can have it work in Vista ?
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 cMBSerialThe error I get is:
Error description: Error wbemScripting.SwbemLocator/16389 E_FAIL: CONNECTSERVER
Thanks,
Jeff Barnes
(FWH 16.11, xHarbour 1.2.3, Bcc730)
Jeff Barnes
(FWH 16.11, xHarbour 1.2.3, Bcc730)