Make your own free website on Tripod.com

Home
Home

--- Soumis par Dev Ashish---

Obtenir le nom du Login.

(Q) Comment retrouverle 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 **************************