Lesen der Seriennummer des USB-Speichergeräts in Vb

Question

Ist es möglich, die Seriennummer eines USB-Laufwerks über VB zu lesen?

Answer 1

Google gefunden diese Tutorials:

visual basic (für hdd seriell, aber es scheint, es auch für ein USB-Laufwerk funktioniert):

http://www.codeproject.com/KB/cs/hard_disk_serialno.aspx

Powershell und VBasic:

http://blogs.msdn.com/powershell/archive/2007/02/24/displaying-usb-devices-using-wmi.aspx

vbasisch:

http://www.myitforum.com/forums/m_147418/mpage_1/key_/tm.htm

Answer 2

Es ist in der Registrierung, HKLM\System\CCS\Enum\USB\VID_XXXX&PID_YYYY\<serial>. (Hersteller- und Produkt-ID wird variieren, wie Seriennummern für ein einzelnes Produkt nur einzigartig sind.)

Answer 3

das Sie die Informationen über Ihre Laufwerke in .net, einschließlich USB-Geräte Importieren Sie einfach diese

geben Importe Scripting Importe System.IO

Private Class USBsn 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim driveNames As New List(Of String) 
     For Each drive As DriveInfo In My.Computer.FileSystem.Drives 
      Try 
      Dim fso As Scripting.FileSystemObject 
      Dim oDrive As Drive 

      fso = CreateObject("Scripting.FileSystemObject") 

      oDrive = fso.GetDrive(drive.Name) 

      ListBox1.Items.Add(drive.Name & " " & oDrive.SerialNumber) 
     Catch ex As Exception 
     End Try 

     Next 
    End Sub 
End Class