Imports System.Management

Dim drive As String = "C"
Dim disk As ManagementObject = New ManagementObject("Win32_Logicaldisk="
+ "\"" + drive + ":\"")

Dim SerialNumber As String =
disk.Properties("Volumeserialnumber").Value.ToStri ng()


That's all.