主题：怎样得到U盘的物理序列号？

还是你自己搞定吧，添加外部引用：system.management.dll

即可用下面的代码列出所有磁盘的型号和物理序列号：

Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
For Each Obj As System.Management.ManagementObject In Wmi.Get
    If Obj("Model") IsNot Nothing Then
        output.show( Obj("Model").ToString)
    End If
    If Obj("Signature") IsNot Nothing Then
        output.show(Obj("Signature").ToString)
    End If
Next

注意前面一句话：

添加外部引用：system.management.dll