Üye Kayıt Üye Giriş

Harddisk serial no öğrenme


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
 

Bilgisayar Dershanesi Ders Sahibi;
Bilgisayar Dershanesi

Yorumlar

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

ETİKETLER

x