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

   
Vista:

Nº de Serie de Disco Duro

Publicado por Humberto (83 intervenciones) el 18/08/2008 17:30:16
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Nº de Serie de Disco Duro

Publicado por abolom (31 intervenciones) el 18/08/2008 20:50:30
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..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Nº de Serie de Disco Duro

Publicado por kong (681 intervenciones) el 18/08/2008 21:21:20
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Nº de Serie de Disco Duro

Publicado por HELDER MARTINEZ (710 intervenciones) el 18/08/2008 21:30:15
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)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Nº de Serie de Disco Duro

Publicado por Martin (1 intervención) el 11/10/2008 21:59:28
Gracias, realmente lo estaba buscando y necesitando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar