FoxPro/Visual FoxPro - num. serie del disco duro

Hola, necesito saber si existe alguna funcion o procedimiento en el ke pueda saber el numero de serie del disco duro????, esto lo kiero para instalar un programa y si ese programa lo kieren instalar en otra computadora, compara los numeros de serie.

De antemano muchas gracias.

*-- Número de Serie del disco Duro:
oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('d').SerialNumber
cSerie =str(nroser,20)
?'Numero de Serie: '+ (cSerie)



Suerte

Take a look:
http://www.portalfox.com/index.php?name=News&file=article&sid=1063&mode=nested&order=0&thold=0