Mit dieser Methode kann die Seriennummer eines Laufwerkes mit WMI ausgelesen werden.
Folgende usings werden benötigt:
using System.IO;
using System.Management;
Dem Projekt ist außerdem ein Verweis auf System.Management hinzuzufügen !
Der Tipp ist von Jan Welker, nur in VB.NET übersetzt :)
''' <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
Kommentare zum Snippet