Nro Serie disco duro - para rutina de proteccion sistema

31/07/2003 - 21:40 por Gabriel | Informe spam

Hace algun tiempo se publicaron algunas rutinas para obtener el nro de serie
del disco duro donde se instalaba un sistema, a fin de usarlo para
implementar proteccion basada en este nro.
El problemas es que en Windows XP no funcionan, ya que siempren retorna
'******'
¿Alguien ha podido solucionar esto en XP?, o ha encontrado otra llamada a la
API de windows XP que retorne algo útil para identificar la PC, basado en
nro de disco, id de motherboard o procesador, etc?
Gracias desde ya...
Gabriel

PD: El codigo original es algo así:

oFS=CreateObject('scripting.filesystemobject')
cadena=str(oFS.Drives('c').SerialNumber,9)
release ofs
? cadena etc etc

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Problema con nro de serie del disco

Leer las respuestas

#1 Enrique Vásquez

31/07/2003 - 22:17 | Informe spam

Prueba asi:

oFS=CreateObject('scripting.filesystemobject')
cadena=str(oFS.Drives('c').SerialNumber,10)
release ofs
? cadena

Me dio el numero. Parece ser que los asteriscos te lo spresenta porque
es muy corta la longitud de la variable pedida

Quike
_________________________________
No Muerdas la Mano que te da de Comer
Legaliza tu Visual FoxPro
-
http://www.first-zone.com/?AID373

Responder a este mensaje

#2 Gabriel

01/08/2003 - 19:39 | Informe spam

Gracias a todos por las respuestas, el problema era el str(,9) al
ampliar el ancho de la cadena se solucionó el tema de obtener el nro...
aunque hubo que "tocar" las demas rutinas.
Gracias nuevamente por el interés.
Gabriel

Enrique Vásquez escribió en el mensaje de noticias

Yo tampoco tengo se problema, el del problema era Gabriel!

Quike
_________________________________
No Muerdas la Mano que te da de Comer
Legaliza tu Visual FoxPro
-
http://www.first-zone.com/?AID373

Responder a este mensaje

#3 David Amador \(Davphantom\)

01/08/2003 - 23:37 | Informe spam

Creo que eso ya te lo habiamos dicho

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523

"Gabriel" escribió en el mensaje
news:

Gracias a todos por las respuestas, el problema era el str(,9) al
ampliar el ancho de la cadena se solucionó el tema de obtener el nro...
aunque hubo que "tocar" las demas rutinas.
Gracias nuevamente por el interés.
Gabriel

Enrique Vásquez escribió en el mensaje de noticias

> Yo tampoco tengo se problema, el del problema era Gabriel!
>
>
> Quike
> _________________________________
> No Muerdas la Mano que te da de Comer
> Legaliza tu Visual FoxPro
> -
> http://www.first-zone.com/?AID373
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida