severinbuob
Goto Top

User mit VBA ermitteln die auf DB zugreiffen

Hallo zusammen!

Ich möchte gerne per VBA herausfinden meine Datenbank geöffnet hat. Wenn möglich, möchte ich die Windows Usernames mit dieser Funktion herausfinden, wenn dies nicht möglich ist, andere Angaben über Anzahl der Zugriffe oder IP-Adressen der Zugriffe.

Vielen Dank für die Unterstützung!

Gruss
Severin

Content-Key: 52310

Url: https://administrator.de/contentid/52310

Ausgedruckt am: 29.03.2024 um 10:03 Uhr

Mitglied: Weiricth
Weiricth 22.02.2007 um 09:05:49 Uhr
Goto Top
ein neues modul erstellen

Option Compare Database
Option Explicit

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long  

Function NTUSER() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0) Then
        NTUSER = Left$(strUserName, lngLen - 1)
    Else
        NTUSER = vbNullString
    End If
    
    'MsgBox NTUser  
End Function

und dann kannst du in einem ntuser() darauf zugreifen. Dieser code funktioniert ab office 97

Grüße

TomTom
Mitglied: severinbuob
severinbuob 22.02.2007 um 14:12:50 Uhr
Goto Top
Herzlichen Dank für diese rasche Antwort!
Hab jetzt eine zusätzliche Tabelle eingabaut und immer wenn jemand die Datenbank öffnet, so speichert es den Benutzernamen in diese Tabelle mit der Zeit und dem Datum.

Gruss
Severin