Yo te he respondido ya en
http://www.mvp-access.com/foro/obtener-id-del-procesador-de-un-computador-en-red_topic79785.html repostear no suele ser la solución, buscar (Que es lo que he hecho yo) si que lo es.
Public Sub InformacionProcesador(Optional strOrdenador As String = ".")
Dim objWMIService As Object, _
Propiedad As Object, _
Propiedades As Object
On Error GoTo InformacionProcesador_TratamientoErrores
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strOrdenador & "\root\cimv2")
Set Propiedades = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each Propiedad In Propiedades
Debug.Print "Fabricante: " & Propiedad.Manufacturer
Debug.Print "Nombre: " & Propiedad.Name
Debug.Print "Descripción: " & Propiedad.Description
Debug.Print "ID Procesador: " & Propiedad.ProcessorID
Debug.Print "Arquitectura: " & Propiedad.Architecture
Debug.Print "AddressWidth: " & Propiedad.AddressWidth
Debug.Print "Número de Cores: " & Propiedad.NumberOfCores
Debug.Print "DataWidth: " & Propiedad.DataWidth
Debug.Print "Familia: " & Propiedad.Family
Debug.Print "Velocidad Maxima Reloj: " & Propiedad.MaxClockSpeed
Next
InformacionProcesador_Salir:
Set objWMIService = Nothing
On Error GoTo 0
Exit Sub
InformacionProcesador_TratamientoErrores:
MsgBox "Error " & Err & " en proc.: InformacionProcesador del Módulo: " & Application.VBE.ActiveCodePane.CodeModule.Name & " (" & Err.Description & ")", vbCritical + vbOKOnly, DBEngine(0)(0).Properties("AppTitle")
Resume InformacionProcesador_Salir
End Sub ' InformacionProcesador
Saludos a todos desde Huelva Emilio http://www.mvp-access.es/emilio/
