Module login - VBA

[max.lander]

Bonjour à tous,

je souhaite créer un fichier multi utilisateurs avec un module de détection des utilisateurs connectés aprés la saisie d'un numéro par exemple.

pour cela je vais créer une table avec tous les noms et identifiants, j'aimerai juste savoir quel est le meilleur chemin pour scanner la base et retourner le nom de la personne en cours d'utilisation...


je pense que le sujet a du être abordé des centaines mais le nombre de réponse par jour rend la recherche difficile.

Merci par avance

 

[Pierrot93]

Re : Module login - VBA

Bonjour Max

pour connaitre l'utilisateur de la session windows :

   Msgbox Environ("UserName")

l'utilisateur Office :

MsgBox Application.UserName

bonne journée
@+

 

[max.lander]

Re : Module login - VBA

Salut,

Un grand merci pour ce bout de code qui va me fazciliter la vie!!!!

Juste un petit truc, la methode Environ("UserName") ne me renvoie que le Nom de famille, est il possible d'avoir le prénom par une methode similaire?

Merci par avance

 

[Pierrot93]

Re : Module login - VBA

Re,

Cette variable d'environnement contient "l'USERNAME" de l'utilisateur "windows", pas forcément un nom d'ailleurs... Pas de notion de nom ou prénom dans les variables d'environnement, enfin à ma connaissance....
bon après midi
@+

 

[Zon]

Re : Module login - VBA

Bonjour,

Le numéro de série du disque dur peut être intéressant dans ton cas?


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 HDD&(Ch$)
Dim NS&, Ch1$
Ch1 = String$(255, Chr$(0))
HDD = GetVolumeInformation(Ch, Ch1, Len(Ch1), NS, 0, 0, Ch1, Len(Ch1))
HDD = NS
End Function

MsgBox HDD("C:\")


A+++

 

[max.lander]

Re : Module login - VBA

Re,

Cette variable d'environnement contient "l'USERNAME" de l'utilisateur "windows", pas forcément un nom d'ailleurs... Pas de notion de nom ou prénom dans les variables d'environnement, enfin à ma connaissance....
bon après midi
@+

Merci Pierrot93, pour toutes ces informations, je pensé que "username" etait l'intitulé du compte utilisateur que l'on voit dans le menu demarrer.

Bonjour,

Le numéro de série du disque dur peut être intéressant dans ton cas?


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 HDD&(Ch$)
Dim NS&, Ch1$
Ch1 = String$(255, Chr$(0))
HDD = GetVolumeInformation(Ch, Ch1, Len(Ch1), NS, 0, 0, Ch1, Len(Ch1))
HDD = NS
End Function

MsgBox HDD("C:\")


A+++

Merci ZON,pour la fonction qui retourne le numéro de serie du HDD mais j'ai un peu de mal à la comprendre même si elle fonctionne très bien!

Quelqu'un peut la commenter?

Merci par avance

 

[Zon]

Re : Module login - VBA

Salut,

J'utilise un API Getvolumenformation, c'est une fonction de la bibliothèque Kernel32.dll, elle permet de connaitre les informations sur un disque dur ou amovible et elle est indépendante de VBA.

Elle contient 8 parametres

(ByVal _
lpRootPathName As String, => c:\

lpVolumeNameBuffer => nom du disque ex: Disque LOcal

nVolumeNameSize As Integer, =>256 catcyères maxi pour stocké le nom de volume

lpVolumeSerialNumber As Long, => Numéro de série du disque

lpMaximumComponentLength _As Long, =>256 catcyères maxi pour stocké le nom de répertoire , fichiers

lpFileSystemFlags As Long, à savoir si disque compressé

lpFileSystemNameBuffer As String, NTFS, FAT32, ....

nFileSystemNameSize As Long) As Long=> 256 caractères max


Ici on récupère le numero de série, mais si on voulait récupèrer le type da la partition

ce serait

HDD = GetVolumeInformation(Ch, Ch1, Len(Ch1), NS, 0, 0, Ch1, Len(Ch1))
HDD = Ch1

A+++


PS suis-je explicit ou pas ?

 

[Compte Supprimé 979]

Re : Module login - VBA

Bonjour

Nom de l'utilisateur de la session en cours

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
 
 
Sub GetLoginName()
'Chris Amess, mpep
'Gets the currently logged on user from the system
Dim strName As String
Dim lngReturn As Long
Dim strLoginName As String
 
'Gets users Name using API call
strName = Space$(25)
lngReturn = GetUserName(strName, 25)
 
If lngReturn = 1 Then
  DoEvents
  MsgBox strName
Else
  MsgBox "Imposssible d'obtenir le nom utilisateur du réseau"
End If
End Sub

Devrait te donner ce que tu souhaites

A+

 

[max.lander]

Re : Module login - VBA

Salut à tous et merci pour vos conseils!

Je vais étudier tout cela!!

à bientôt

 

[radinor]

Re : Module login - VBA

Bonjour,

Le numéro de série du disque dur peut être intéressant dans ton cas?


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 HDD&(Ch$)
Dim NS&, Ch1$
Ch1 = String$(255, Chr$(0))
HDD = GetVolumeInformation(Ch, Ch1, Len(Ch1), NS, 0, 0, Ch1, Len(Ch1))
HDD = NS
End Function

MsgBox HDD("C:\")


A+++

Bonjour,
Le numéro de série du disque dur est en fait un numéro calculé ( ? ) pour une partition. Ce que j'aimerais avoir c'est une référence matérielle unique du disque dur
Actuellement j'obtiens le numéro de série par ce code qui doit être équivalent au tien

Sub AfficheInfoLecteurC()
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName("C:\"))
    Select Case d.DriveType
        Case 0: t = "Inconnu"
        Case 1: t = "Amovible"
        Case 2: t = "Fixe"
        Case 3: t = "Réseau"
        Case 4: t = "CD-ROM"
        Case 5: t = "Disque RAM"
    End Select
    s = "Lecteur " & d.driveletter & ": - " & t
    s = s & vbCrLf & "SN: " & d.SerialNumber
    MsgBox s
End Sub

salutations