İşlemci Seri Numarası ve Özet Bilgilerin Alınması

Bu makalede işlemcinin seri numarasını, özet bilgileri ve DeviceID numarasını alınmasını göreceğiz.
WMI Class dan Win32_Processor ünü kullanacağız. Formunuza 3 adet Button ve 1 adet Label ekleyin. Aşağıdaki Şekil 1 deki gibi formunuzu hazırlayın.

Şekil 1

Şekil 2

Şekil 3

Şekil 4

Forma yazılacak kodlar:

Public Class Form1

    Private Sub btnID_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnID.Click
        Dim Nesnemiz
        Nesnemiz = GetObject("winmgmts:root\cimv2:Win32_Processor=‘cpu0‘")
       
        Label1.Text = "CPU Seri No: " & Nesnemiz.ProcessorID
    End Sub

    Private Sub btnBilgi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBilgi.Click
        Dim Nesnemiz
        Nesnemiz = GetObject("winmgmts:root\cimv2:Win32_Processor=‘cpu0‘")
       
        Label1.Text = "CPU Özet: " & Nesnemiz.Caption
    End Sub

    Private Sub btnDId_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDId.Click
        Dim Nesnemiz
        Nesnemiz = GetObject("winmgmts:root\cimv2:Win32_Processor=‘cpu0‘")
       
        Label1.Text = "DeviceId No: " & Nesnemiz.DeviceID
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "İşlemci Bilgileri"
            .MaximizeBox = False
        End With
    End Sub
End Class

‘Faydalı olması dileğiyle. Bir sonraki makalede görüşmek üzere...Bahadirsa