VB.NET – Obtener el número de serie del procesador

El número de serie del procesador o «ProcessorID» es un identificador único asociado a este hardware para poder identificarlo y así encontrar repuestos, actualizaciones o información sobre el fabricante.

Algunos programadores usan este identificador para generar códigos de licencia para su software que irán asociados a una sola máquina y hace tiempo necesité esta función así que hoy quería compartirla con vosotros por si os resulta necesario.

Quizá pueda interesarte: Obtener el número de serie de la placa base

La función que nos devuelve el número de serie del procesador es esta:

Public Shared Function GetProcessorId() As String
        Try
            Dim strProcessorId As String = String.Empty
            Dim query As New SelectQuery("Win32_processor")
            Dim search As New ManagementObjectSearcher(query)
            Dim info As ManagementObject
            For Each info In search.Get()
                strProcessorId = info("processorId").ToString()
            Next
            Return strProcessorId.ToUpper
        Catch ex As Exception
            Return "CPUID_Unknown"
        End Try
End Function

Y la podemos llamar de este modo:

Dim Processor_Serial as String = GetProcessorId()

La función nos devolvería una cadena de texto parecida a esta: E3FBFBEF590366E9

Otra función que nos daría más información sobre el procesador es esta que os pongo a continuación y que se podría modificar para obtener el nombre del fabricante, memorias L1/L2, arquitectura, etc…

Sub ProcessorSpeed()
  Dim MyOBJ As Object
  Dim cpu As Object
  Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor")
  For Each cpu In MyOBJ
        MsgBox(cpu.Name.ToString & " " & cpu.CurrentClockSpeed.ToString & " Mhz", vbInformation)
  Next
End Sub

Espero que os sirva para vuestros programas, si es así, deja un comentario usando el formulario que tienes más abajo.

Enlaces de interés:
https://www.codeproject.com/Articles/17973/How-To-Get-Hardware-Information-CPU-ID-MainBoard-I
https://stackoverflow.com/questions/7698670/how-to-get-system-hardware-information-in-vb-net-4-0
https://www.codeguru.com/visual-basic/obtaining-computer-information-with-visual-basic-net/