1.Set objWMIService = GetObject("winmgmts:\.rootcimv2")
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