取所有U盘序号
Private Sub 取所有U盘序号()Dim objWMIService As Object
Dim colItems As Object
Dim objitem As Object
Dim a, b, c, d, e, U_Dist
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))
Debug.Print U_Dist
If U_Dist = "1AA602010007" Then Exit Sub'U盘物理序列号
'1AA602010007 是我U盘的序号
End If
Next
MsgBox "找不到正确U盘，系统将退出！"
End Sub
页:
[1]