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
Merci à VBfrancais@YahooGroupes.fr....
Je ne suis pas l'auteur de ce code
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
- Numéro de série d'un volume/lecteur/disque
- Delphi / Pascal : Bloquer l'accès à un volume (lecteur: disque dur, disquette, cd-rom, - Guide
- Numero de serie physique disque dur - Forum - Foxpro
- Visual Basic / VB.NET : Recuperer le label et le numero de serie d'un disque dur - CodeS SourceS - Guide
- Visual Basic / VB.NET : Lire le numero de série d'un disque - CodeS SourceS - Guide
- ::: obtenir le numero de serie du disque dur d'un pc en vfp ::: - Codes sources - Foxpro (API-OLE)
Commentaires
il faut trouver le numéro de série de proceceur
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 !
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 !
'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(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.