---

Hallo alle miteinander,

ich in meiner bisherigen Datenbank eine Abfrage, wer die Datenbank öffnet. Ich brauche den Anmeldenamen zur Steuerung der Laufwerksverknüpfungen. Einfacher wäre es aber den Benutzernamen von Windows zu verwenden. Nur weiss ich nicht wie ich an den komme. Hat jemand ein Lösung hier für?

Gruß Volker

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Volker,

den NT Usernamen kannst du wie folgt ermitteln.

Code:

---

'' Diesen Code in ein Modul kopieren
Option Compare Database
Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function NTUser()
  Dim vlst_User As String
  Dim vlin_Position As Integer
  Dim vlln_Laenge As Long
  Dim vlln_Return As Long
  vlln_Laenge = 255
  vlst_User = String$(vlln_Laenge, 0)
  vlln_Return = GetUserName(vlst_User, vlln_Laenge)
  If vlln_Return <> 0 Then
      NTUser = Left$(vlst_User, vlln_Laenge)
      'Null entfernen
      vlin_Position = InStr(NTUser, Chr$(0))
      If vlin_Position > 0 Then NTUser = Left$(NTUser, vlin_Position - 1)
  Else
      NTUser = ""
  End If
End Function

---

Den Usernamen kannst du dann an beliebiger Stelle mit NTUSER abrufen.

Code:

---

msgbox "Username ist: " & NTUser

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

leider bin ich gerade erst dazu gekommen. Funktioniert super. Danke!!!
Gruß Volker

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP