Recupérartion du username NT dans VBA

Question

Salut à tous,

Je voudrais savoir comment récuper mon username de windows Nt dans mon prog Access.

J'utilise Windows Nt avec Access 2000, mon but étant d'afficher mon username sur mon formulaire principale.

cs_pimousse75 · Answer

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'Pour Recuperer le login windows
'Dim sBuffer As String
'Dim lSize As Long
'
'' Allocation de la taille du buffer de réception
'sBuffer = Space$(255)
'lSize = Len(sBuffer)
'
'' La DLL retourne l'utilisateur connecté sur cette machine
'Call GetUserName(sBuffer, lSize)
'txtNomUtilisateur.Text = sBuffer

Voilà !

chipaolee · Answer

Je ne connais pas le moyen de récupérer le mot de passe de l'utilisateur
mais je pense que la protection par NT doit être assez musclée en encore
plus sur réseau sinon à quoi servirait le mot de passe si une simple
fonction API peut le faire sauter.
Par contre pour récupérer le login (pas le UserName de la machine), je te propose ci-dessous une solution 

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVallpName
As String, ByVal lpUserName As String, lpnLength As Long) As Long
Const NoError = 0
Function GetUserName()
    Const lpnLength As Integer = 255
    Dim status As Integer
    Dim lpName, lpUserName As String
    lpUserName = Space$(lpnLength + 1)
    status = WNetGetUser(lpName, lpUserName, lpnLength)
    If status = NoError Then
          lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
    Else
          MsgBox "Impossible d'obtenir le login."
          End
    End If
    GetUserName = lpUserName
End Function

 Sub AfficheLogin()
      MsgBox GetUserName
End Sub

cs_zack · Answer

Je tiens a apporter mon approbation a chipaolee je pense que pimousse (comme son pseudo l'indique) est encore puceau en matière de programmation.
Il pensait épater la galerie en utilisant une API mais ce system n'est pas très fiable. En tant que développeur dans une grosse société informatique nous utilisons (bien que + évolué) le procéder mise en place par chipaolee. Donc bravo a toi chipaolee quand a pimousse je pense que quelque cours ne lui ferait pas de mal.
bonne journée.

cs_pimousse75 · Answer

Mon cher Zack, 

je trouve ton jugement un peu hâtif. Je n'ai aucunement prétenu faire un coucours de prog mais simplement laisser la trace d'une autre solution possible pour capitaliser le savoir. Quant à mon pseudo il n'a rien à voir avec mes  compétences, et pour ta gouverne tu n'es pas le seul à travailler dans une grosse société...

triners · Answer

Je suis sous sous WinXP et Excel XP et le code ne fonctionne pas soit il me manque un bout du code en VBA par rapport aux propositions du forum ou ils ont changé quelquechoses entre 2000 et XP,
j'aimerais savoir si quelqu'un a une solution
Merci d'avance

tbbuim1 · Answer

Essayes-ca:

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function WhoIs() As String
    Dim strUserName As String
    Dim lngLenght As Long
    Dim lngResult As Long
    'Créé le tampon
    strUserName = String$(255, 0)
    lngLenght = 255
    'Effectue l'appel
    lngResult = GetUserName(strUserName, lngLenght)
    'Nettoie et affecte la valeur
    WhoIs = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1)
End Function

Ensuite tu n'as plus qu'à utiliser la fonction pour récupérer le username:

Me.UserName = WhoIs
TBBUIM

tbbuim1 · Answer

Ou ça:

Public Declare Function wu_GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Function ap_GetUserName() As Variant
Dim strUserName As String
Dim lngLenght As Long
Dim lngResult As Long

'Créé le tampon
strUserName = String$(255, 0)
lngLenght = 255

'Effectue l'appel
lngResult = wu_GetUserName(strUserName, lngLenght)

'Nettoie et affecte la valeur
ap_GetUserName = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1)
End Function
TBBUIM

Recupérartion du username NT dans VBA

7 réponses

Discussions similaires