VBA - Beispiel 007
mail schreiben
mail schreiben

Benutzername ermitteln / api

Mit dieser API-Funktion wird der Benutzername ausgelesen und anschließend in einer MsgBox angezeigt.
Option Explicit

Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub UserName()
  Dim Buffer As String * 100
  Dim BuffLen As Long

  BuffLen = 100
  GetUserName Buffer, BuffLen
  MsgBox Left(Buffer, BuffLen - 1)
End Sub

Download:   vba007.zip