VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

UserName aus der Windows-Registry auslesen

Gruppe

API

Bereich

System

Thema

UserName aus der Windows-Registry auslesen

Problem

Wie kann ich den in der Windows-Registry eingetragenen User-Namen auslesen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




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