VbでUSBストレージデバイスのシリアル番号を読み取る

Question

VBを使用してUSBドライブのシリアル番号を読み取ることは可能ですか？

Answer 1

Googleはこれらのチュートリアルが見つかりました：

ビジュアルベーシック（用HDDのシリアルを、それはあまりにもUSBドライブのために働くようだ）：

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

PowerShellとvbasic：

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

vbasic：

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

Answer 2

HKLM\System\CCS\Enum\USB\VID_XXXX&PID_YYYY\<serial>です。 （シリアル番号は、単一の製品にのみ一意であるとしてベンダーとプロダクトIDは、あまりにも異なります。）

Answer 3

これはあなたの.NETのドライブ上の情報を与える、USBデバイスなどの はただ、これらの

をインポートImports Scripting Imports 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