用HidD_GetAttributes为什么不能得到鼠标的PID和VID？？

应用程序如下：
Result = HidD_GetAttributes _
(HidDevice, _
DeviceAttributes)
Dim VID As String
Dim PID As String
VID = Hex$(DeviceAttributes.VendorID)
PID = Hex$(DeviceAttributes.ProductID)
为什么鼠标的VID AND PID 都是0呢？ 用此应用程序却能得到别的HID设备的VID AND PID