1.Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
2.Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
3.For Each objItem In colItems
4. a = objItem.DeviceID
5. If InStr(a, "VID") Then b = Split(a, "\")
6. USB_ID = b(UBound(b)) 7.Next