vb.net读取U盘的VID,PID,USBSND等信息

 

        Dim colItems As Object
        Dim objItem As Object
        Dim a As Object
        Dim b As Object
        Dim objWMIService As Object
        b = Nothing

        objWMIService = GetObject("winmgmts:\\.\root\cimv2")
        colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
        For Each objItem In colItems
            a = objItem.DeviceID  'U盘识别为:USB\VID_09A6&PID_800\20040418154911-00，故用VID判别
            If a Like "*VID*" Then
                b = Split(a, "\")
                Response.Write(b(UBound(b)))
            End If
        Next