VB4/32-VB6
Von: Thorsten Dörfler
Bei der Windows- bzw. Netzwerkanmeldung muss der Benutzer seinen Benutzernamen und sein Kennwort angeben, um sich als authorisierter Benutzer zu identifizieren. Diesen Anmeldenamen können Sie mit der API Funktion GetUserName ermitteln, um ihn in Ihrem Projekt zu verwenden:
Private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" ( _ ByVal lpBuffer As String, _ ByRef nSize As Long _ ) As Long Public Function UserName() As String Dim lBuffer As String Dim lResult As Long Dim lLength As Long lBuffer = Space$(256) lLength = Len(lBuffer) lResult = GetUserName(lBuffer, lLength) If CBool(lResult) Then UserName = Left$(lBuffer, lLength - 1) End If End Function
Anwendung:
Debug.Print UserName