[أبو عمر]

PHP كود :

Add Reference to the System.Management Assembly.

For this you have to do:

1.   Go to Project Tab

2. Click on Add References

3. Click on .NET tab

4. Select System.Management and press ok
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