Leer el numero de serie del disco rigido

Edu
12 de Enero del 2009
Hola a Todos:
Necesito saber como se lee el numero de serie del disco rigido con visual foxpro 6.0.
Desde ya muchas gracias

Daniel
12 de Enero del 2009
Run Vol > c:Disco.Dat
Handle = FOPEN("c:disco.dat")
CadVol = FREAD(Handle,100)
Vol = SUBSTR(CadVol,84,9)

es una forma

CARLOS C
12 de Enero del 2009
DANIEL MUCHAS GRACIAS POR LO DEL HDD SERIAL