MD5: 96CB957B74D260E25D45BDBC1C74A7DB
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Dim gehaxelt As String = String.Empty Dim instances As ManagementObjectCollection = New ManagementClass("win32_processor").GetInstances Dim obj2 As ManagementObject For Each obj2 In instances If (gehaxelt = "") Then gehaxelt = obj2.Properties.Item("processorID").Value.ToString Exit For End If Next Me.TextBox1.Text = gehaxelt End Sub
