vb获取所有USB的端口号的方法（相关搜索：端口号）

Question

在vs2010中，怎么用vb获取所有的USB接口的端口号，求详细方法

Answer 1

试试这个

  Function usb()
      Dim colItems As Object
      Dim objItem As Object
      Dim objWMIService As Object
      Dim s = ""

      objWMIService = GetObject("winmgmts:\\.\root\cimv2")
      colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
      For Each objItem In colItems
          s += objItem.DeviceID + vbCrLf
      Next
      Return s
  End Function