io ho trovato questo tipo in rete !!!!

' Ottenere il numero seriale dell'Hard Disk
Declare Function GetVolumeInformation Lib "kernel32" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
Public Function Leggi_Seriale()
Valori = GetVolumeInformation("D:\", Volume, 50, Seriale, Comp_length, System_Flag, SysNameBuffer, FSysNamSize)
Leggi_Seriale = Seriale
End Function