Mega Code Archive

 

Categories / VB.Net / Windows System

 

Get Drive Serial

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