Rubrik: System/Windows · Computer/Benutzer/Ländereinstellungen | VB-Versionen: VB4, VB5, VB6 | 02.11.00 |
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: | Views: 56.035 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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