Copie interdite sur autre disque dur

Le
M41
Bonjour

Comment avec VBA (97 à 2003) identifier le disque dur
(son nom de code windows et non pas la lettre de partition)
où est placée une application Excel

L'objectif est de bloquer une application au démarrage à partir
du moment où elle a été ouverte 1 fois sur un disque physique
(mémorisation cachée de l'identification de ce disque)

Cordialement

M41
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #4692411
Bonjour,

Du fond de mes archives :
"===================================================="
De : Michel Pierron
Groupes de discussion : microsoft.public.fr.excel
Envoyé : mercredi 27 août 2003 10:27
Objet : Re: identifier disque dur

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

Sub BootInfos()
Dim Serial As Long, Label As String, sFat As String
Label = String(255, Chr(0)): sFat = String(255, Chr(0))
GetVolumeInformation "C:", Label, 255, Serial, 0, 0, sFat, 255
Label = Left(Label, InStr(1, Label, Chr(0)) - 1)
sFat = Left(sFat, InStr(1, sFat, Chr(0)) - 1)
MsgBox "Volume name of C:" & vbTab & Label & vbLf _
& "File system of C:" & vbTab & sFat & vbLf _
& "Serial number of C:" & vbTab & Trim(Str(Serial)), 64, "Info User"
End Sub

MP
"===================================================="
--
Avec plaisir
Philippe.R
"M41" news:46ed10d1$0$27373$
Bonjour

Comment avec VBA (97 à 2003...) identifier le disque dur
(son nom de code windows et non pas la lettre de partition)
où est placée une application Excel

L'objectif est de bloquer une application au démarrage à partir
du moment où elle a été ouverte 1 fois sur un disque physique
(mémorisation cachée de l'identification de ce disque)

Cordialement

M41



M41
Le #4692341
Merci.@+. On va tester....
M41

"Philippe.R" egm%23JRF%
Bonjour,

Du fond de mes archives :
"===================================================="
De : Michel Pierron
Groupes de discussion : microsoft.public.fr.excel
Envoyé : mercredi 27 août 2003 10:27
Objet : Re: identifier disque dur

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

Sub BootInfos()
Dim Serial As Long, Label As String, sFat As String
Label = String(255, Chr(0)): sFat = String(255, Chr(0))
GetVolumeInformation "C:", Label, 255, Serial, 0, 0, sFat, 255
Label = Left(Label, InStr(1, Label, Chr(0)) - 1)
sFat = Left(sFat, InStr(1, sFat, Chr(0)) - 1)
MsgBox "Volume name of C:" & vbTab & Label & vbLf _
& "File system of C:" & vbTab & sFat & vbLf _
& "Serial number of C:" & vbTab & Trim(Str(Serial)), 64, "Info User"
End Sub

MP
"===================================================="
--
Avec plaisir
Philippe.R
"M41" news:46ed10d1$0$27373$
Bonjour

Comment avec VBA (97 à 2003...) identifier le disque dur
(son nom de code windows et non pas la lettre de partition)
où est placée une application Excel

L'objectif est de bloquer une application au démarrage à partir
du moment où elle a été ouverte 1 fois sur un disque physique
(mémorisation cachée de l'identification de ce disque)

Cordialement

M41






Publicité
Poster une réponse
Anonyme