Carte du site
 Remerciements
 Netiquette
 Bugs
 Tables
 Requêtes
 Formulaires
 États (rapports)
 Modules
 APIs
 Chaînes
 Date/Time
 Général
 Ressources
 Téléchargeables

 Termes d'usage

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 **************************

© 1998-2001, Dev Ashish, All rights reserved. Optimized for Microsoft Internet Explorer