Numero serie de microprocesador
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86901
Fecha de impresión: 26/Marzo/2026 a las 17:27
Tema: Numero serie de microprocesador
Publicado por: Nomada
Asunto: Numero serie de microprocesador
Fecha de publicación: 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.
|
Respuestas:
Publicado por: xavi
Fecha de publicación: 04/Abril/2024 a las 13:44
|
De la página del Búho: http://www.mvp-access.es/buho/ficheros/serieprocesador.txt" rel="nofollow - mvp-access.es/buho/ficheros/serieprocesador.txt ------------- Xavi, un minyó de Terrassa http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: javier.mil
Fecha de publicación: 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" rel="nofollow - https://www.accessdemo.info |
Publicado por: Plinio Montano
Fecha de publicación: 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 |
Publicado por: javier.mil
Fecha de publicación: 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
------------- https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info |
Publicado por: javier.mil
Fecha de publicación: 22/Abril/2024 a las 19:19
|
Mira la DEMO 56 de mi WEB https://www.accessdemo.info/" rel="nofollow - https://www.accessdemo.info/ ------------- https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info |
Publicado por: Nomada
Fecha de publicación: 12/Octubre/2024 a las 12:08
|
Muchas gracias a todos. Este hilo se puede cerrar satisfactoriamente. Un saludo. |