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)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
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" a écrit dans le message de 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
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" <boomerang.pro00@wanadoo.fr> a écrit dans le message de
news:46ed10d1$0$27373$ba4acef3@news.orange.fr...
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)
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" a écrit dans le message de 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
Merci.@+. On va tester.... M41
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news: 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" a écrit dans le message de 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
Merci.@+. On va tester....
M41
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
egm%23JRF%23HHA.4180@TK2MSFTNGP05.phx.gbl...
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" <boomerang.pro00@wanadoo.fr> a écrit dans le message de
news:46ed10d1$0$27373$ba4acef3@news.orange.fr...
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)
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news: 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" a écrit dans le message de 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)
