Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

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

Sub ShowUserName()
   Dim Buffer As String * 100
   Dim BuffLen As Long
   BuffLen = 100
   GetUserName Buffer, BuffLen
   MsgBox Left(Buffer, BuffLen - 1)
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen API und System