Harddisk serial no öğrenme

'references'a system.Management'i ekleyiniz
Imports System.Management


 Dim disk As New ManagementClass("Win32_PhysicalMedia")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Hdisk As ManagementObject In disk.GetInstances()
            If Hdisk("SerialNumber") <> Nothing Then
                MessageBox.Show("Hdisk serino: " & CStr(Hdisk("SerialNumber")))
            End If
        Next Hdisk
    End Sub
 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

harddisk serial no öğrenme