Hallo Sven versuche es mal mit folgendem Code in einem Globalen Modul.(Es kann noch ein wenig Schrott von mir drin sein)
Der Code ist nicht auf meinem Mist gewachsen.Leider war kein Autor angegeben als ich den Code bekam.
Abfragen zB mit MSGBOX GetNutzer():
Public dbs As DAO.Database, doc As Document
Public PrArt As Variant
Option Compare Database
Option Explicit
Global MyLoginName
Global MyUserName
Global MyGroupName
Global MyServerName
Global MyHostName
Global MyDbName
Global MyVM
Global ws As Workspace
Global dbloc As DAO.Database 'local database
Global dbrem As DAO.Database 'remote database
Declare Function GetUserName Lib „advapi32.dll“ Alias „GetUserNameA“ (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerName Lib „kernel32“ Alias „GetComputerNameA“ (ByVal lpBuffer As String, nSize As Long) As Long
Function GetNutzer() As String
If MyUserName = „“ Then
Dim size As Long, un1 As String, cn1 As String
Dim reply As Long
un1 = Space(10)
cn1 = Space(144)
size = 10
reply = GetUserName(un1, size)
MyUserName = Trim(Left(un1, size - 1))
size = 144
reply = GetComputerName(cn1, size)
MyHostName = Trim(Left(cn1, size))
End If
GetNutzer = MyUserName
If GetNutzer = Null Or GetNutzer = „“ Then
GetNutzer = „Annonym“
End If
End Function
Function GetHost() As String
If MyUserName = „“ Then
Dim size As Long, un1 As String, cn1 As String
Dim reply As Long
un1 = Space(10)
cn1 = Space(144)
size = 10
reply = GetUserName(un1, size)
MyUserName = Trim(Left(un1, size - 1))
size = 144
reply = GetComputerName(cn1, size)
MyHostName = Trim(Left(cn1, size))
End If
GetHost = MyHostName
End Function
