Add a reference to "System.Management.dll" and import the
'System.Management' namespace:
\\\
Dim disk As New ManagementObject( _
"Win32_LogicalDisk.DeviceID=""C:""" _
)
Dim diskPropertyA As PropertyData = _
disk.Properties("VolumeSerialNumber")
MsgBox(diskPropertyA.Value.ToString())
///