Originariamente inviato da ans
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.
Per funzionare devi avere Windows Management Interface (WMI) installato nella macchina. WMI può essere installato su Windows 2003,Windows XP e Windows 2000 SP4.0.
Su NT4.0 e precedenti non funziona