FoxPro/Visual FoxPro - NUMERO DE SERIE DEL DISCO ...

Hola .... vereis tengo la siguiente rutina para mostrar el serial del disco duro .... pero en un ordenador portatil centrino no me lo muestra, ¿sabeis porque?

***********************************************************
* Numero de Serie del disco Duro:
oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('c').SerialNumber
cSerie =str(nroser)
* mostrarlo en etiqueta:
This.label1.caption='Numero de Serie: '+cSerie

RESULTADOS NORMALES:
Numero de Serie: 640227056

RESULTADO EN CENTRINO:
Numero de Serie: ****

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

Puedes hacerlo mejor con API.,...

Serial del Disco duro
http://www.davphantom.net/descarga.asp?id=125&op=1

DiskSerial
http://www.davphantom.net/descarga.asp?id=468&op=2

Numero de serie del disco duro (con WMI)
http://www.davphantom.net/consultar.asp?id=262&op=3

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

prueba con esto:
http://www.universalthread.com/wconnect/wc.dll?LevelExtreme~2,2,9805