Visual Basic - Extraer el número de serie de armazón ó chasis

Life is soft - evento anual de software empresarial
   
Vista:

Extraer el número de serie de armazón ó chasis

Publicado por Jhonny Kahwati (11 intervenciones) el 24/05/2009 00:01:12
Hola, alguien puede decirme si es posible un código fuente para extraer el número de serial del armazón ó serial de chassis de los equipos HP desktop, ya que tengo un computador original HP y le cambie la tarjeta madre y el problema que tengo con mi aplicación es que extrae el serial nuevo de la tarjeta y yo quiero extraer el serial del Armazón o chasis.

Éste es el codió fuente de mi pequeña aplicación que solo extrae el número de serie y el fabricante.

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Call wmiBiosInfo
End Sub
Private Sub wmiBiosInfo()

Set BiosSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_BIOS")

On Local Error Resume Next

For Each bios In BiosSet
Text2.Text = bios.Manufacturer
Text1.Text = bios.serialNumber
Next 'For Each bios
End Sub

NOTA: Si saben cómo cambiarle el serial del armazón desde el bios también me puede servir.

Espero me puedan ayudar ya que tengo tres semanas con esto.

Muchas Gracias.
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

Extraer el número de serie de armazón ó chasis

Publicado por Jhonny Kahwati (1 intervención) el 29/05/2009 05:07:42
Hola, alguien puede decirme si es posible un código fuente para extraer el número de serial del armazón ó serial de chassis de los equipos HP desktop, ya que tengo un computador original HP y le cambie la tarjeta madre y el problema que tengo con mi aplicación es que extrae el serial nuevo de la tarjeta y yo quiero extraer el serial del Armazón o chasis.

Éste es el codió fuente de mi pequeña aplicación que solo extrae el número de serie y el fabricante.

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Call wmiBiosInfo
End Sub
Private Sub wmiBiosInfo()

Set BiosSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_BIOS")

On Local Error Resume Next

For Each bios In BiosSet
Text2.Text = bios.Manufacturer
Text1.Text = bios.serialNumber
Next 'For Each bios
End Sub

NOTA: Si saben cómo cambiarle el serial del armazón desde el bios también me puede servir.

Espero me puedan ayudar ya que tengo tres semanas con esto.

Muchas Gracias.
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