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())
///
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.