Récupérez le numéro de série de votre disque dur

Par exemple pour identifier un ordinateur dans le but d'empêcher le piratage d'un programme.

Il vous sufit simplement de copier coller ce code dans un module Excel, Word, ou n'importe quel VBA :

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 NumSerieDD(LettreDD As String) As Long
Dim SerialNum As Long
Dim R As Long
Dim Temp1 As String
Dim Temp2 As String
LettreDD = LettreDD & ":\"
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
R = GetVolumeInformation(LettreDD, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
NumSerieDD = SerialNum
End Function

Sub Essai()
MsgBox NumSerieDD("C")
MsgBox NumSerieDD("D") ' Si vous avez un 2ème disque dur
MsgBox NumSerieDD("A") ' Penser à insérer une disquette
End Sub

Une fois que c'est fait, exécutez Essai.