VB下，如何获取U盘出厂ID,最好能给出源代码，急救呀！

[ksir]

如题！

[junki]

读注册表，有专门记录USB设备的数据

[ExeMan]

纯VB代码都可以读取，但多个USB设置时无法区分那个对应那个。
代码不知放到哪了，有空找出来大家再看。

[kingbook]

使用WMI读取.
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * 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))
MsgBox U_Dist
End If
Next

[清晨曦月]

昂～！～


你们为什么把能说的都说了

[dandelionl]

mark

[ksir]

[Quote=引用 3 楼 kingbook 的回复:]
使用WMI读取.
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * 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(U…
[/Quote]

老大，提示“objWMIService =”为未定义变量呀！！！

怎么办？

[ksir]

试了一下，终于明白了：

引用：Microsoft WMI Scripting V1.2 Library

然后，定义：

Dim objWMIService As Object
Dim colItems As Object
Dim objitem As Object
Dim a, b, c, d, e, U_Dist

补上3楼的代码，就可以显示了。

好像同一批出厂的U盘（相同容量）的ID号都是一样的。

还是很感谢大家！

[zhangda777]

看下试试

[zhangda777]

看下试试