VB.Net ile Harddisk Seri Numarası Bulma

Harddisk seri numarasını bulabilmek için kullanmamız gereken kütüphane System.Management kütüphanesidir.

İlk olarak bunu Referans olarak eklemeli ve daha sonra projemize Import etmeliyiz.

form üzerine Me.HDDseriNo.Text diye textbox veya label oluşturuyoruz.
Label1,Label2,Label3 ve Label4 diye dört tane label oluşturuyoruz.

kodları kopyalıyıp yapıştırın, çalıştırın hepsi bu.

Imports System.Management


'HDD seri Numarası
        Dim DriveSerial As Long
        Dim fso As Object, Drv As Object
        'Create a FileSystemObject object
        fso = CreateObject("Scripting.FileSystemObject")
        Drv = fso.GetDrive(fso.GetDriveName(AppDomain.CurrentDomain.BaseDirectory))
        With Drv
            If .IsReady Then
                DriveSerial = .SerialNumber
            Else    '"Drive Not Ready!"
                DriveSerial = -1
            End If
        End With
        'Clean up
        ' Drv = Nothing
        '  fso = Nothing
        Me.HDDseriNo.Text = Hex(Trim(DriveSerial))


Label1.Text = My.Computer.Name
Label2.Text = My.Computer.Info.OSFullName
Label3.Text = My.Computer.Keyboard.CapsLock
Label4.Text = My.Computer.Info.OSVersion