[مبرمج مصرى]

شكرا يا أخى لقد جربت الكود لكن حصلت على خطأ فى ال error list وهو
type 'managementobjectsearcher' is not defined

فى السطر الثالث من الكود

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim HDD_Serial As String
     Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")
    For Each hd In hdd.Get
        HDD_Serial = hd("SerialNumber")
        MsgBox(HDD_Serial)
    Next
End Sub