Public sub a()
Dim objWMI As New Management.ManagementObjectSearcher("Select DeviceID From Win32_USBHub where Name='USB 大容量存储设备'")
Try
For Each objWMIObject As ManagementObject In objWMI.Get
msgbox objWMIObject("DeviceID").ToString.Split(CChar("\"))(2)
Next
Catch ex As Exception
MessageBox.Show(ex.Message, strMsg, MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
objWMI.Dispose()
objWMI = Nothing
End Try
End sub