Get CPU ID - Printable Version

PHP Code:
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()