Leer serial number de Placa base

04/05/2010 - 18:30 por Anonimo | Informe spam

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

Siga el debate

9 respuestas

Tengo una respuesta

Preguntas similare

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

Responder a este mensaje

#2 LSC Juan de Dios Corrales Leal

05/05/2010 - 16:59 | Informe spam

Me suena conocido... demasiado conocido... como que esta exactamente
igual a mi rutina.

mario alfredo escribió:

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

Responder a este mensaje

#3 Felix Berto Castillo G.

05/05/2010 - 21:26 | Informe spam

Mas creo que piden el numero de la placa (MotherBoard) no del disco duro, o
me equivoco?

*-*-*-*-*-*-*-*-*
Félix Berto Castillo G.
La Vega, Rep. Dom.
*-*-*-*-*-*-*-*-*

"LSC Juan de Dios Corrales Leal" wrote in message
news:

Me suena conocido... demasiado conocido... como que esta exactamente igual
a mi rutina.

mario alfredo escribió:

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

Responder a este mensaje

#4 Felix Berto Castillo G.

05/05/2010 - 21:46 | Informe spam

Estos codigos no estan/son para VFP, y ahora mismo no tengo el tiempo de
"inventar" y ver como lo llevo a VFP, pero espero que te sirvan:

http://en.kioskea.net/forum/affich-...ial-number

http://www.freevbcode.com/ShowCode.asp?ID&64

Si logras algo, por favor, te agradezco lo compartas...

*-*-*-*-*-*-*-*-*
Félix Berto Castillo G.
La Vega, Rep. Dom.
*-*-*-*-*-*-*-*-*

"Felix Berto Castillo G." <felixbcastillo AT codetel.net.do> wrote in
message news:

Mas creo que piden el numero de la placa (MotherBoard) no del disco duro,
o me equivoco?

*-*-*-*-*-*-*-*-*
Félix Berto Castillo G.
La Vega, Rep. Dom.
*-*-*-*-*-*-*-*-*

"LSC Juan de Dios Corrales Leal" wrote in message
news:

Me suena conocido... demasiado conocido... como que esta exactamente
igual a mi rutina.

mario alfredo escribió:

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

Responder a este mensaje

#5 Felix Berto Castillo G.

05/05/2010 - 21:49 | Informe spam

Bien, pues aqui esta para VFP, con WMI, claro esta...

http://www.windows-tech.info/9/8ef5...ac2b84.php

Y otras utilidades que quizas le saques alguito de provecho (o sea de tu
interes):

http://www.tek-tips.com/viewthread.cfm?qidu6938

Espero que te sirvan...
*-*-*-*-*-*-*-*-*
Félix Berto Castillo G.
La Vega, Rep. Dom.
*-*-*-*-*-*-*-*-*

"Felix Berto Castillo G." <felixbcastillo AT codetel.net.do> wrote in
message news:

Mas creo que piden el numero de la placa (MotherBoard) no del disco duro,
o me equivoco?

*-*-*-*-*-*-*-*-*
Félix Berto Castillo G.
La Vega, Rep. Dom.
*-*-*-*-*-*-*-*-*

"LSC Juan de Dios Corrales Leal" wrote in message
news:

Me suena conocido... demasiado conocido... como que esta exactamente
igual a mi rutina.

mario alfredo escribió:

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

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida