FoxPro/Visual FoxPro - Como puede obtener el sereal del disco duro

Me gustaria saber como puedo btener el sereal del disco duro. Gracias para el que pueda ayudarme.

Utiliza este codigo, me funciono correctame con Fox P/DOS, con VFP te recomiento que lo hagas a traves de API, en mundofox.com hay un ejemplo.

SET CURSOR OFF
create table config (config c(45))
!vol > cfg.mio
use config
appen from cfg.mio DELIMITED
DELETE FOR CONFIG=SPACE(45)
pack

go bottom
NSerie=RIGHT(alltr(config),9)

close data
erase config.dbf
erase cfg.mio

La variable Nserie, ya contiene el numero de serie.

Espero haberte ayudado y enviame tus comentarios.

Gracias, esperaba una funcion o variable interna de Fox que guardare esa informacion. Pero es una forma ingeniosa de solucionar el problema, aunque me da el inconveniente del cambio de pantalla.