Numéro de série d'un volume/lecteur/disque

Soyez le premier à donner votre avis sur cette source.

Vue 7 638 fois - Téléchargée 932 fois

Description

Mettre en paramètre de la fonction GetSerialOfDrive, le lecteur à analyser, exmple : pour récuperer le numéro de série du lecteur c, je ferais GetSerialOfDrive "c:\"...
Amusez vous bien

Source / Exemple :


Option Explicit

' Publié par 69VobD3 (DivX-Paradise.net)

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

Public Function RecupIdHdd(sLecteur As String) As Long
    'Definit les variables locales
    Dim Serial As Long, VName As String, FSName As String
    'Creation des tampons
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    'Obtient les informations du volume
    GetVolumeInformation Left(sLecteur, 3), 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)
    'Récupère le numéro de série
    RecupIdHdd = Trim(Str$(Serial))
End Function

Conclusion :


Merci à VBfrancais@YahooGroupes.fr....
Je ne suis pas l'auteur de ce code

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
24
Date d'inscription
samedi 31 décembre 2005
Statut
Membre
Dernière intervention
3 novembre 2007

les numéros des série des lecturs chenger quand formater l'ordinateur alors ca ne pas garanti!!
il faut trouver le numéro de série de proceceur
Messages postés
125
Date d'inscription
jeudi 27 février 2003
Statut
Membre
Dernière intervention
6 mars 2008

là , tu donnes les infos de la partitions et PAS du disque dur !! Nuance.
getvolumeinformations = donne les infos du volume.Donc les infos partitions.Y'a déjà une chiée + 1 de sources com ca ici.Si tu trouve les infos du disque dur, alors là tu innove ... et ca m'interresserait vivement !
Messages postés
125
Date d'inscription
jeudi 27 février 2003
Statut
Membre
Dernière intervention
6 mars 2008

là , tu donnes les infos de la partitions et PAS du disque dur !! Nuance.
getvolumeinformations = donne les infos du volume.Donc les infos partitions.Y'a déjà une chiée + 1 de sources com ca ici.Si tu trouve les infos du disque dur, alors là tu innove ... et ca m'interresserait vivement !
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

' Autre méthode possible : même résultat !
'Dim oFSO As Object, vLecteur As Variant
'Set oFSO = CreateObject("Scripting.FileSystemObject")
'Set vLecteur = oFSO.GetDrive(oFSO.GetDriveName( _
oFSO.GetAbsolutePathName(sLecteur)))
'lNSD = vLecteur.SerialNumber
'Set vLecteur = Nothing
'Set oFSO = Nothing

VBLOCKER : PROTÉGEZ VOTRE APPLICATION COMMERCIALE
http://www.vbfrance.com/article.aspx?Val=4123
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
Tu t'es pas trop foulé : c'est la recopie de l'exemple donné dans APIGuide !
(Les commentaires ne sont pas tous traduits)
et en plus, je regarde pourquoi ça ne marche pô chez moi ...
LOL

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.