APIs: Obtenir le nom du Login	Author(s) Dev Ashish

(Q) Comment retrouver le nom de l'usager tel que fourni au début de la session en se branchant au réseau?

(A) Copier-coller le code suivant dans un nouveau module et exécuter la  fonction fOSUserName.

'******************** Code Start **************************
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Retourne le nom d'usager fourni lors du branchement au réseau.
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If lngX <> 0 Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = ""
    End If
End Function
'******************** Code End **************************