FoxPro/Visual FoxPro - SERIE

SALUDOS AMIGOS. ALGUIEN ME PUEDE DECIR O TENGA UN PEQUEÑO CODIGO DE COMO LEER EL NUMERO SE SERIE DEL DISCO DURO, DISKETT, CD, ETC. DONDE SE ALMACENE EN UNA VARIABLE PARA LUEGO GRABARLA EN UN DBF.

MUCHAS GRACIAS...

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

:-)
loFSO = CREATEOBJECT("Scripting.FileSystemObject")
lcSerialNumber = lofso.drives("c:").serialnumber
messagebox(str(lcSerialNumber))

ahora si te quieres ver mas elegante

http://www.downloadjunction.com/product/software/116855/index.html

En English y se paga en US$

eso ya depende de como lo veas si es para uso comercial se justifica si no pues solo que tengas mucha lana no crees ?

Pero si puedes hacer lo mismo gratis y sin tener que usar una dll extra?.

bueno, cuestion de enfoques