bonjour

j'ai conçu un code qui me permet d'afficher le numéro de mon disque dur et le nom de mon pc

ça fonctionne à merveille sur mon pc w7 32 bit mais quand j essaye de l'utiliser sur un poste 64 bits un message d'erreur me bloque

merci de m'aider s'il vous plait

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
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 Test_NumDD()
If Environ("Username") = "technica" And NumSerieDD("C") = "-902055702" Then ' Adapter les Infos en testant avec Test_Info
    MsgBox "Vous êtes autorisé à accéder à ce fichier", , "Sécurité"
Else:  MsgBox "Vous n'avez pas l'autorisation d'accéder à ce fichier", , "Sécurité"
    Exit Sub
End If
End Sub
 
Sub Test_Info()
Range("A1") = Environ("Username")