Hi @kaveh rahimi ,
Add reference to 'System.Management', then try the code like:
Dim theSearcher As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive WHERE InterfaceType='USB'")
For Each currentObject As ManagementObject In theSearcher.Get()
Dim theSerialNumberObjectQuery As ManagementObject = New ManagementObject()
theSerialNumberObjectQuery.Path = "Win32_PhysicalMedia.Tag='" & currentObject("DeviceID") & "'"
MessageBox.Show(theSerialNumberObjectQuery("SerialNumber").ToString())
Next
Hope it could be helpful.
Best Regards,
Xingyu Zhao
*
If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.