FoxPro/Visual FoxPro - Sigue falla con serial disco duro

Gracias por leer mi duda

Uso visual foxpro 6.0 y voy a migrar a la ultima version pero debo terminar con la 6.0 en lo que estoy haciendo. He recibido dos respuestas sobre un codigo para leer el serial del disco duro pero ha sido posible que funcione ninguna de las dos y no encuentro el por que de la falla. Seria de gran ayuda que me dijeras como hacerle para obtener el serial del disco duro local

De antemano gracias por tu valiosa ayuda

AKIKO

Ya intentaste en otra pc?? (con el codigo que te di)

Saludos►

Saludos amigo. NO he podido usar otra pc pero lo intentare y te paso el dato. como debe ser el formato del dato que retorna el codigo que me pasaste ??

gracias por tu valiosa ayuda

AKIKO

El codigo lee el volumen del disco y lo convierte a numérico.

suerte►

Entiendo lo que dices pero al tomar el serial que da dir /w en alfanumerico, y llevarlo a numerico, no da el mismo valor que da el codigo. De hecho da un valor negativo.

esa es la incognita, por que un valor negativo

Yo creo un instalador leyendo el serial del disco, para ello
simplemente hago un RUN vol>vol.txt
el TXT me muestra lo siguiente:

El volumen de la unidad C no tiene etiqueta
El numero de serie del volumen es 2656-15E0

luego lo vuelco en un cursor y LISTO
quedarias asi:

RUN vol>vol.txt
CREATE CURSOR VOLUMEN ;
(PALABRAS C(35), NUMERO C(11))
APPE FROM vol.txt TYPE SDF
GO BOTT
serial=numero
?numero

Ese no es el serial del disco duro interno es el volumen, ve esta rutina:

oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('d').SerialNumber
cSerie =str(nroser,20)
?'Numero de Serie: '+ (cSerie)