Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

User mit VBA ermitteln die auf DB zugreiffen

Frage Microsoft Microsoft Office

Mitglied: severinbuob

severinbuob (Level 1) - Jetzt verbinden

22.02.2007, aktualisiert 14:12 Uhr, 8443 Aufrufe, 2 Kommentare

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
Mitglied: Weiricth
22.02.2007 um 09:05 Uhr
ein neues modul erstellen

01.
Option Compare Database 
02.
Option Explicit 
03.
 
04.
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
05.
 
06.
Function NTUSER() As String 
07.
Dim lngLen As Long, lngX As Long 
08.
Dim strUserName As String 
09.
    strUserName = String$(254, 0) 
10.
    lngLen = 255 
11.
    lngX = apiGetUserName(strUserName, lngLen) 
12.
    If (lngX > 0) Then 
13.
        NTUSER = Left$(strUserName, lngLen - 1) 
14.
    Else 
15.
        NTUSER = vbNullString 
16.
    End If 
17.
     
18.
    'MsgBox NTUser 
19.
End Function 
20.
 
und dann kannst du in einem ntuser() darauf zugreifen. Dieser code funktioniert ab office 97

Grüße

TomTom
Bitte warten ..
Mitglied: severinbuob
22.02.2007 um 14:12 Uhr
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
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst VBA - aktuelle Kalenderwoche ermitteln (3)

Frage von Ghost108 zum Thema Microsoft Office ...

Firewall
Vom LAN auf Router über Firewall zugreiffen (5)

Frage von miichiii9 zum Thema Firewall ...

Visual Studio
gelöst SIDs eines Verzeichnisses ermitteln (1)

Frage von joehuaba zum Thema Visual Studio ...

Datenbanken
gelöst MySQL Function Anzahl Datensätze ermitteln (4)

Frage von MultiStorm zum Thema Datenbanken ...

Neue Wissensbeiträge
LAN, WAN, Wireless

Schwachstelle im WPA2 Protokoll veröffentlicht

(3)

Information von colinardo zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte