[aljzazy]

PHP كود :

Imports System.Management

Public Function GetSerialNumber() As String
    Dim disk As ManagementObject = New ManagementObject("Win32_LogicalDisk.DeviceID=""C:""")
    disk.Get()
    Return disk("VolumeSerialNumber").ToString()
End Function 


---

يمكنك استدعاءه كالتالي :

PHP كود :

Dim serialNumber As String = GetSerialNumber()
MessageBox.Show("C drive serial number: " & serialNumber)