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.
É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
0