Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Leer serial number de Placa base

04/05/2010 - 18:30 por Anonimo | Informe spam
Ayuda Hacer una pregunta
Saludos a todos.

Necesito conocer el número de serie de la Placa Base en donde tengo
instalada la aplicación, alguien podría ayudarme con algún ejemplo, utilizo
VFP 9.


José Martínez
gracias.



__________ Información de ESET Smart Security, versión de la base de firmas de virus 5085 (20100504) __________

ESET Smart Security ha comprobado este mensaje.

http://www.eset.com
email Siga el debateRespuesta 9 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 mario alfredo
04/05/2010 - 23:43 | Informe spam
alguien colo esto, si te sirve

Function NumeroSerial
Parameter Ldrive
Local Lisready, Ofso, Cdrives, Drive, Tmpserial, Serial
Tmpserial = ""
Serial = ""
Ofso = Createobject("scripting.filesystemobject")
Cdrives = Ofso.Drives
For each Drive In Cdrives
If Drive.Driveletter = Upper(Ldrive) .and. Drive.Isready
Tmpserial = Right(Alltrim(Transform(Drive.Serialnumber,
"@0")), 8)
Serial = Left(Tmpserial, 4) + "-" + Right(Tmpserial, 4)
Endif
Endfor
Release Ofso
Return Serial
Endfunc

Preguntas similares

 

Busqueda sugerida :