[ViolentReality]

Notice: I stumbled upon some of my old sources I put together and released awhile ago on various forums, I figured I may as well post them on here.

HWID Grabber (Processor ID)

[ Download Source ]

[zosoftnet]

I had done the same : Dim obj As ManagementObject
Dim enumerator As ManagementObjectEnumerator = Nothing
Dim objsrc As ManagementObjectSearcher = New ManagementObjectSearcher("select * from Win32_Processor")
Dim objcol As ManagementObjectCollection = objsrc.Get()
Using enumerator
If (Not enumerator.MoveNext()) Then
enumerator = objcol.GetEnumerator()
While True
If (enumerator = Nothing) Then
Exit While
End If
obj = DirectCast(enumerator.Current, ManagementObject)
Me.TextBox1.Text = Conversions.ToString(obj("ProcessorID"))
End While
End If
End Using
obj.Dispose()
objcol.Dispose()
objsrc.Dispose()

And the Nic !! http://www.hackforums.net/showthread.php?tid=2354614

[ViolentReality]

I had done the same : Dim obj As ManagementObject

Code:

Dim enumerator As ManagementObjectEnumerator = Nothing
  Dim objsrc As ManagementObjectSearcher = New ManagementObjectSearcher("select * from Win32_Processor")
  Dim objcol As ManagementObjectCollection = objsrc.Get()
  Using enumerator
    If (Not enumerator.MoveNext()) Then
    enumerator = objcol.GetEnumerator()
    While True
    If (enumerator = Nothing) Then
    Exit While
    End If
    obj = DirectCast(enumerator.Current, ManagementObject)
    Me.TextBox1.Text = Conversions.ToString(obj("ProcessorID"))
    End While
    End If
  End Using
  obj.Dispose()
  objcol.Dispose()
  objsrc.Dispose()

And the Nic !! http://www.hackforums.net/showthread.php?tid=2354614

I posted my original thread before that one.
http://www.hackforums.net/showthread.php?tid=2083012

I have been using this code since I started in 2011.