Seriennummer eines Laufwerkes auslesen mit WMI

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

''' <summary> 
''' Gets the drive serial number. 
''' </summary> 
''' <param name="drive">The drive.</param> 
''' <returns></returns> 
Private Function GetDriveSerialNumber(ByVal drive As String) As String 
    Dim driveSerialnumber As String = String.Empty 
    Dim driveFixed As String = Path.GetPathRoot(drive).Replace("\", "") 
    
    Dim wmiQuery As String = "SELECT VolumeSerialNumber FROM Win32_LogicalDisk Where Name = '" + driveFixed + "'" 
    
    Using driveSearcher As New ManagementObjectSearcher(wmiQuery) 
        Using driveCollection As ManagementObjectCollection = driveSearcher.[Get]() 
            For Each moItem As ManagementObject In driveCollection 
                driveSerialnumber = Convert.ToString(moItem("VolumeSerialNumber")) 
            Next 
        End Using 
    End Using 
    Return driveSerialnumber 
End Function