Attribute VB_Name = "CtrlUser"
Option Explicit

Private Declare Function GetUserName _
  Lib "advapi32.dll" Alias "GetUserNameA" ( _
    ByVal lpBuffer As String, _
    nSize As Long _
  ) As Long                 'Déclaration Windows API

Public Property Get UserName() As Variant
'Lecture du code d'accès utilisé pour lancer Windows au démarrage
'La chaine est logé dans la base de registre dans la valeur "MSTCP"
'de la clé HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD
  Dim Buffer As String      'Chaine contenue par la valeur
  Dim SizeW As Long
  Dim NameW As Long
  

'    Win 9x et Win 2000/NT
      SizeW = 256
      Buffer = Space(256)
      NameW = GetUserName(Buffer, SizeW)
      Buffer = Left(Buffer, SizeW - 1)
    UserName = Buffer



End Property