SerialHDD

Private Declare Function GetVolumeInformation Lib "kernel32.dll"_
Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize _
As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer _
As String, ByVal nFileSystemNameSize As Long) As Long

Function GetSerialNumber(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), _
SerialNum, 0,
0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function

'Esempio di utilizzo :

'(se voglio il serial number del disco C)

Call MsgBox GetSerialNumber("C:\") Ottenere il Numero di Serie dell'Hard Disk