Creacion de Objeto en Windows Vista

[ricardog]

Buenas noches.

Alguien que me oriente en lo siguiente:

Estoy tratando de tomar la serie de la Tarjeta Madre, y me marca error en :

oLoc := CREATEOBJECT( "wbemScripting.SwbemLocator" )

TRY
oSrv := oLoc:ConnectServer()
CATCH oErr
MsgInfo("1.- No es posible verificar, Registro","Atención") //----NO GENERA EL OBJETO 'oLoc'
Quit
END

Repito en windows vista, me da problemas, en XP todo Ok.

FWH 2.7, xHarbour 0.99.60, BC55

Gracias por su ayuda

Saludos
Ricardo E. Guardado F.