Angemeldeten Benutzernamen ermitteln Möchten Sie wissen, unter welchen Benuternamen der aktuelle Benutzer sich im System angemeldet hat, so hilft Ihnen nachfolgende Funktion weiter.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  28.566
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 113 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Möchten Sie wissen, unter welchen Benuternamen der aktuelle Benutzer sich im System angemeldet hat, so hilft Ihnen nachfolgende Funktion weiter.

' Hier die benötigten API-Deklarationen
Declare Function GetUserName Lib "advapi32.dll" _
  Alias "GetUserNameA" ( _
  ByVal lpBuffer As String, _
  nSize As Long) As Long
 
' Die Prozedur ermittelt den angemeldeten 
' Benutzernamen
Public Function GetBenutzer() As String
  Dim UserName As String
  Dim Result As Long
 
  UserName = Space$(256)
  Result = GetUserName(UserName, Len(UserName))
 
  If InStr(UserName, Chr$(0)) > 0 Then _
    UserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
 
  GetBenutzer = UserName
End Function