你是要序列号还是

 Public sub a()
    Dim objWMI As New Management.ManagementObjectSearcher("Select DeviceID From Win32_USBHub where Name='USB 大容量存储设备'")
    Try
      For Each objWMIObject As ManagementObject In objWMI.Get
        msgbox objWMIObject("DeviceID").ToString.Split(CChar("\"))(2)
      Next
    Catch ex As Exception
      MessageBox.Show(ex.Message, strMsg, MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
      objWMI.Dispose()
      objWMI = Nothing
    End Try
  End sub

引用 2 楼 wpxxsyzx 的回复:

 Public sub a()
    Dim objWMI As New Management.ManagementObjectSearcher("Select DeviceID From Win32_USBHub where Name='USB 大容量存储设备'")
    Try
      For Each objWMIObject As ManagementObject In objWMI.Get
        msgbox objWMIObject("DeviceID").ToString.Split(CChar("\"))(2)
      Next
    Catch ex As Exception
      MessageBox.Show(ex.Message, strMsg, MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
      objWMI.Dispose()
      objWMI = Nothing
    End Try
  End sub

我插了优盘，没有反应

http://blog.sina.com.cn/s/blog_6243051e0100fqj7.html

LZ 的意思是要得到盘符，帮顶。

http://blog.sina.com.cn/s/blog_6243051e0100fqj7.html，这个方法就能得到盘相瞒符，测试过