Harddiskin Seri Numarasını ve Modelini Öğrenmek

Bu makalemizde harddiskin seri no su ve modelini öğrenilmesini anlatacağız. Sizler bu uygulamamızı; yapacağınız programlarda programınızın tanımlı harddisk seri no larına göre çalışması, tanımsız hdd seri no larında çalışmaması gibi uygulamalar geliştirebilirsiniz.(Aşağıdaki şekli inceleyin.)

Şekil 1

Önemli Not: İlk önce Project kısmından Add Reference den System.Management ı projenize ekleyin.

Imports System
Imports System.Management

Public Class Form1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
     ‘Harddiskin seri numarasının alınması  
       Dim disk As New ManagementClass("Win32_PhysicalMedia")
        For Each Hdisk As ManagementObject In disk.GetInstances()
            If Hdisk("SerialNumber") <> Nothing Then
                TextBox3.Text = CStr(Hdisk("SerialNumber"))
            End If
        Next Hdisk

    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
      
       ‘Harddisk modelini bulmak

        Dim searcher As New Management.ManagementObjectSearcher("select * from Win32_PhysicalMedia")
        Dim wmi_HD As Management.ManagementObject

        searcher = New System.Management.ManagementObjectSearcher("select * from Win32_DiskDrive")
        For Each wmi_HD In searcher.Get()
            TextBox4.Text = wmi_HD("Model")
        Next
    

    End Sub
End Class

‘Bir sonraki makalemizde Mac adresleri ile ilgili bilgi vereceğiz. Görüşmek dileğiyle...Bahadirsa