Imports System.Management Public Function GetHardwareSerialNumber_USB() As ArrayList Dim ar As New ArrayList Dim ms As ManagementObjectSearcher Dim moReturn As ManagementObjectCollection Dim mo As ManagementObject ms = New ManagementObjectSearcher("Select * from Win32_USBController") moReturn = ms.Get() For Each mo In moReturn ar.Add(mo("DeviceID")) Next Return ar End Function
wmic diskdrive get PNPDeviceID
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)