Discussion :

[BSide]

Bonjour,

j'ai mis en place une base ACCESS. Le fichier est positionné dans un répertoire partagé sur un serveur de l'entreprise. Une dizaine de personnes utilisent couramment l'outil depuis son poste perso.
Je souhaiterais pouvoir identifier les personnes connectées sans passer par une procédure requérant un Login+MDP.
Pour cela j'ai besoin de pouvoir identifier le(s) poste(s) connecté(s) sur la base de sorte à obtenir la même info que celle que l'on peut retrouver dans le fichier ".ldb" associé au ".mdb".

Savez-vous comment récupérer cette info autrement qu'en dépiotant caractère par caractère le fichier ".ldb" ?

Merci

[Invité]

Salut BSide,

Sur mes bases j'utilises l'API Windows :

En entête d'un module "Global"

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
 
Option Explicit
' Pour récupérer le nom de la machine
Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
' Pour récupérer le nom de l'utilisateur
Private Declare Function GetuserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Function LoginUtil() As String
    Dim Buffer As String
    Buffer = String$(255, 0)
    If GetuserName(Buffer, 255) <> 0 Then
        LoginUtil = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
    Else
        LoginUtil = ""
    End If
End Function
 
Function NomMachine() As String
    Dim Buffer As String
    Buffer = String$(255, 0)
    If GetComputerName(Buffer, 255) <> 0 Then
        NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
    Else
        NomMachine = ""
    End If
End Function

Voila