VB.Net/Windows System/Management
Get Drive Serial
<source lang="vbnet"> Public Class MainClass
Public Shared Function GetDriveSerial(ByVal DriveLetter As String) As String Dim strSelectText As String = "Win32_logicaldisk="" & DriveLetter & """ Dim objMO As New System.Management.ManagementObject(strSelectText) objMO.Get() Return CType(objMO.Properties("VolumeSerialNumber").Value, String) End Function Public Shared Sub Main System.Console.WriteLine(GetDriveSerial("C:")) End Sub
End Class
</source>