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