FoxPro/Visual FoxPro - FUNCION DE FOXPRO 9.0

HOLAS.. QUIERO POR FAVOR SABER SI EXISTE UNA FUNCION PARA LEER EL NUMERO DE SERIE DE EL DISCO DURO (HARD DISK).
GRACIAS

Que tal...
Puedes hacerlos de varias, puedes encontrar APIS para hacerlo, en la web hay muchos.
Prueba esto:
* Numero de Serie del disco Duro:
oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('c').SerialNumber
cSerie =str(nroser)
* mostrarlo en etiqueta:
Thisform.serial.caption='Numero de Serie: '&cSerie

Bytes

se parece no ??????????????

oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('d').SerialNumber
cSerie =str(nroser,20)
?'Numero de Serie: '+ (cSerie)


mmmmmmmmmmmmmmmmmmm