Pregunta: | 61231 - EXTRAER EL NÚMERO DE SERIE DE ARMAZÓN Ó SERIAL DE CHASSIS |
Autor: | Jhonny Kahwati |
Hola compañeros, 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. |