[Sources]Récupérer le N° série du disque dur [Fait] [Résolu]

[Sinclar]

Bonjour,
Quelqu'un sait il comment récupérer le N° de série du disque dur en VBA;
J'ai vu ça quelque part mais je ne me souviens plus où!
Merci d'avance

[Tofalu]

Dans un module :

Code :

Private 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

Puis sur un bouton :

Code :

1
2
3
4
5
6
7
    Dim Serial As Long, VName As String, FSName As String
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    MsgBox "The Volume name of C:\ is '" + VName + "', the File system name of C:\ is '" + FSName + "' and the serial number of C:\ is '" + Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title

[Sinclar]

Merci beaucoup (réponse éclair)

[Sinclar]

petit problème Erreur de Compilation
Sub ou Function non définie

Code :

1
2
 
GetVolumeInformation

[Tofalu]

Et oui, je m'a gouru dans le copier coller

la fonction du module doit être en Public et non private

Code :

Public 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

[Sinclar]

Ok ça marche nickel; juste le App.Title que j'ai enlevé (Erreur d'exécution '424' : Objet requis)

Merci encore