取所有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