Numero serie de microprocesador

   Buenos días.Donde puedo encontrar el código para saber el número de microprocesador.
Un saludo y gracias.

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Nomada Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 03/Julio/2011 Localización: España Estado: Sin conexión Puntos: 1759	Tema: Numero serie de microprocesador Enviado: 04/Abril/2024 a las 12:27
	Buenos días. Donde puedo encontrar el código para saber el número de microprocesador. Un saludo y gracias.

xavi Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya \|\|\|\| Estado: Sin conexión Puntos: 14926	Enviado: 04/Abril/2024 a las 13:44
	De la página del Búho: mvp-access.es/buho/ficheros/serieprocesador.txt
	Xavi, un minyó de Terrassa Mi web

javier.mil Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4856	Enviado: 06/Abril/2024 a las 12:28
	Buenas No necesitas agregar la Referencia / Libreria Microsoft WMI Scripting cambiando estas lineas Dim oWMI As Object ' SWbemServices Dim oProcs As Object ' SWbemObjectSet Dim oProc As Object ' SWbemObject
	https://www.accessdemo.info

Plinio Montano Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 10/Marzo/2015 Localización: Cuba Estado: Sin conexión Puntos: 169	Enviado: 06/Abril/2024 a las 18:34
	Tal ves este código te ayuda te recomiendo lo acomodes a tus necesidades, como ves la información la sacamos de la clase Win32_Processor, la impeccionas le podrás sacar más información. Public Function CPUSerialNumber() As String Dim objs As Object Dim obj As Object Dim WMI As Object Dim sAns, sAnsX As String Dim i MsgProgreso = TraduceTxt("Leyendo Hard") & " #3" 'Leyendo CPU MuestraProgreso Set WMI = GetObject("WinMgmts:") Set objs = WMI.InstancesOf("Win32_Processor") sAnsX = "" i = 0 'Manufacturado por... For Each obj In objs sAnsX = Nz(obj.Manufacturer, "") If Len(sAnsX) > 0 Then sAns = sAns & sAnsX i = i + 1 sAnsX = "" End If If i = 1 Then Exit For Next sAnsX = "" i = 0 'Id del Procesador, no siempre tienen For Each obj In objs sAnsX = Nz(obj.ProcessorId, "") If Len(sAnsX) > 0 Then sAns = sAns & sAnsX i = i + 1 sAnsX = "" End If If i = 1 Then Exit For Next sAnsX = "" i = 0 'Caption del Procesador For Each obj In objs sAnsX = Nz(obj.Caption, "") If Len(sAnsX) > 0 Then sAns = sAns & sAnsX i = i + 1 sAnsX = "" End If If i = 1 Then Exit For Next sAnsX = "" i = 0 For Each obj In objs sAnsX = Nz(obj.Name, "") If Len(sAnsX) > 0 Then sAns = sAns & sAnsX i = i + 1 sAnsX = "" End If If i = 1 Then Exit For Next Set objs = Nothing Set WMI = Nothing CPUSerialNumber = Trim$(sAns)) End Function
	pmv

javier.mil Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4856	Enviado: 07/Abril/2024 a las 17:36
	Muchas microprocesadores CPU No tienen asignado ningún numero de fabrica por tanto el resultado sera nulo o vació Desconozco si realmente necesita específicamente ese numero de CPU pero en su lugar quizás sea mucho mas fácil encontrar los siguiente números Numero de Disco Lógico (Volumen) << Facil de encontrar Numero de Disco Duro Numero de la BIOS Numero Placa Base Numero MAC Editado por javier.mil - 23/Abril/2024 a las 17:31
	https://www.accessdemo.info

javier.mil Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4856	Enviado: 22/Abril/2024 a las 19:19
	Mira la DEMO 56 de mi WEB https://www.accessdemo.info/ Editado por javier.mil - 22/Abril/2024 a las 19:20
	https://www.accessdemo.info

Nomada Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 03/Julio/2011 Localización: España Estado: Sin conexión Puntos: 1759	Enviado: 12/Octubre/2024 a las 12:08
	Muchas gracias a todos. Este hilo se puede cerrar satisfactoriamente. Un saludo.