Imprimir página | Cerrar ventana

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

  • Numero de Disco Lógico (Volumen) << Facil de encontrar
  • Numero de Disco Duro
  • Numero de la BIOS
  • Numero Placa Base
  • Numero MAC





 


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




Imprimir página | Cerrar ventana