7,763
社区成员
发帖
与我相关
我的任务
分享
Set wmi = GetObject("winmgmts:\\.\root\cimv2")
Set usb = wmi.execquery("select * from Win32_PnPEntity where name='HID-compliant device'")
If usb.Count > 0 Then
For Each item In usb
Debug.Print item.Name, item.DeviceID
Next
End If
Set usb = wmi.execquery("select * from Win32_PnPEntity where name='USB 人体学输入设备'")
If usb.Count > 0 Then
For Each item In usb
Debug.Print item.Name, item.DeviceID
Next
End If
HID-compliant device HID\VID_4853&PID_084B\6&25325897&0&0000
USB 人体学输入设备 USB\VID_4853&PID_084B\5&FF9BDDE&0&2