How to Find USB device serial Number in VB.NET

' Add a reference to the System.Management.dll to the project. 
 
' Source: 
' http://downloads.cfdan.com/csharp/usbserialnumber.cs.txt 
 
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Management
 
Friend Class UsbDriveHelper
 
    Public Shared Function GetSerialNumberFromDriveLetter(ByVal driveLetter As String) As String
        If Not driveLetter.EndsWith(":") Then
            driveLetter += ":"
        End If
 
        Return matchDriveLetterWithSerial(driveLetter)
    End Function
 
    Private Shared Function matchDriveLetterWithSerial(ByVal driveLetter As String) As String
        Dim serialNumber As String = ""
        Dim searcher1 As New ManagementObjectSearcher("SELECT * FROM Win32_LogicalDiskToPartition")
        For Each dm As ManagementObject In searcher1.[Get]()
            Dim diskArray As String() = Nothing
            Dim currentDrive As String = getValueInQuotes(dm("Dependent").ToString())
            diskArray = getValueInQuotes(dm("Antecedent").ToString()).Split(","c)
            Dim driveNumber As String = diskArray(0).Remove(0, 6).Trim()
            If currentDrive = driveLetter Then
                ' This is where we get the drive serial 
 
                Dim disks As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
                For Each disk As ManagementObject In disks.[Get]()
 
                    If disk("Name").ToString() = ("\\.\PHYSICALDRIVE" & driveNumber) And disk("InterfaceType").ToString() = "USB" Then
                        serialNumber = parseSerialFromDeviceID(disk("PNPDeviceID").ToString())
                    End If
                Next
            End If
        Next
        Return serialNumber
    End Function
 
    Private Shared Function parseSerialFromDeviceID(ByVal deviceId As String) As String
        Dim splitDeviceId As String() = deviceId.Split("\"c)
        Dim arrayLen As Integer = splitDeviceId.Length - 1
 
        Dim serialArray As String() = splitDeviceId(arrayLen).Split("&"c)
 
        Return serialArray(0)
    End Function
 
    Private Shared Function getValueInQuotes(ByVal inValue As String) As String
        Dim parsedValue As String = ""
 
        Dim posFoundStart As Integer = 0
        Dim posFoundEnd As Integer = 0
 
        posFoundStart = inValue.IndexOf("""")
        posFoundEnd = inValue.IndexOf("""", posFoundStart + 1)
 
        parsedValue = inValue.Substring(posFoundStart + 1, (posFoundEnd - posFoundStart) - 1)
 
        Return parsedValue
    End Function
 
End Class
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67: