[P39]

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