FoxPro/Visual FoxPro - Nº de Serie de Disco Duro

Hola chicos

Recurro a Uds. porque estoy un poco perdido. Estoy trabajando con Visual FoxPro 5.0 y 6.0

Cuando usaba el W '95 y '98 este problema no lo tenía, pero desde el W-XP se me planteo un problema que no puedo resolver.

Necesito desde Visual FoxPro saber el Numero de Serie de mi Disco Rígido, quienes programan como yo saben de que se trata.

ANTES YO HACIA
Run VOL > TITO.TXT y desde ese archivo extraia el numero, pero ahora aparece una ventana que me impide hacer como antes.

Mi pregunta es ¿Como saco ahora el numero de serie del Disco Rigido? sin que el usuario advierta de este movimiento.

Muchisimas gracias aunque sea solo por leerme.

no creo que sea por el windows xp, ya el comando VOL (Información del Volumen) es del S.O y sigue manejando el Xp, utilizo algo parecio y si me da bien la información.

espero que te sirva de algo..

Esta rutina creo que es de plinio

FUNCTION F_SERIAL_HDD
*-- N¨²mero de Serie del disco Duro:
oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('d').SerialNumber
cSerie =ALLTRIM(str(nroser,20))
RETURN cSerie

EL NUMERO DE SERIAL DEL DISCO DURO TE LO MUESTRA EN UN TEXTBOX

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

Gracias, realmente lo estaba buscando y necesitando