主题：请教，能不能使用U盘做加密狗

如果是想给软件加密，建议用官方 Ukey

如果是想作为用户权限的密匙，可以考虑

1.用U盘序列号识别

2.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("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))
        MessageBox.Show(U_Dist)
    End If
    Output.Show(a)
Next