N° série de disque

Voici un mini code qui te donnera les numéros de série en décimal et en Hex
(Il est fait pour mes 3 disques durs.A toi de diminuer le nombre des
Text.Box
en fonction du nombre de tes disques.)

Private Declare Function GetVolumeInformation Lib "kernel32.dll" _
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
'------------------------------------------------
Function NoSerieDisque(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Trucnull As Long
Dim Strnul As String
Res = GetVolumeInformation(strDrive, Strnul, _
Trucnull, SerialNum, Trucnull, Trucnull, Strnul, Trucnull)
NoSerieDisque = SerialNum
End Function

Private Sub Form_Load()
Text1.Text = NoSerieDisque("C:") 'Affichage en décimal
Text2.Text = NoSerieDisque("D:")
Text5.Text = NoSerieDisque("E:")
Text3.Text = Hex(Val(Text1.Text)) 'Affichage en Hexa
Text4.Text = Hex(Val(Text2.Text))
Text6.Text = Hex(Val(Text5.Text))
End Sub

Quant à changer le n° de série je crois qu'il faut passer par un éditeur
Hexa.

Jean Paul