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