下面代码获取三个信息，如何只输出U盘的信息？
Dim objWMIService As Object
Dim colItems As Object
Dim objitem As Object
Dim a, b, c, d, e, U_Dist
objWMIService = GetObject("winmgmts:\\.\root\cimv2")
colItems = objWMIService.ExecQuery("Sele ct * From Win32_USBHub")
For Each objitem In colItems
a = objitem.DeviceID
If a Like "*VID*" Then '
b = Split(a, "\")
c = Split(b(UBound(b) - 1), "&")
d = Split(c(UBound(c) - 1), "_")
e = Split(c(UBound(c)), "_")
U_Dist = d(UBound(d)) + e(UBound(e)) + b(UBound(b))
output.Show(U_Dist)
End If
Next
加好友 
发短信
Post By：2018/6/1 15:43:00 [显示全部帖子]
