Как заставить показывать полное имя в ОС если не в домене или как-то брать инфу из управления сетевыми паролями?

Private Declare Function GetUserNameEx Lib 'Secur32.Dll' Alias 'GetUserNameExA' _
(ByVal NameFormat As EXTENDED_NAME_FORMAT, ByVal lpNameBuffer As String, ByRef nSize As Long) As Long
 
'----НАЧАЛО-------------------------------------------------
Private Enum EXTENDED_NAME_FORMAT
  NameUnknown = 0
  NameFullyQualifiedDN = 1
  NameSamCompatible = 2
  NameDisplay = 3
  NameUniqueId = 6
  NameCanonical = 7
  NameUserPrincipal = 8
  NameCanonicalEx = 9
  NameServicePrincipal = 10
  NameDnsDomain = 12
End Enum
Public Function Form_Load()
    Dim sName As String * 255
    Dim lenght As Long
    lenght = 255
'    Здесь «NameFullyQualifiedDN» МЕНЯЕМ НА ЛЮББОЙ ДР.ФОРМАТ (А ЭТОT ФОРМАТ см. Private Declare Function)
'    и в соответствии с ним получаем результат sName
    GetUserNameEx 3, sName, lenght
    Form_Load = Trim(sName)
End Function
'----КОНЕЦ---------------------------------------------