Récupérer le login utilisateur windows

Question

J'ai un problème pour récuperer le login utilisateur windows, voici le code que j'utilise : 

Dim MachineLocale As RegistryKey = Registry.LocalMachine
                        Dim registre As RegistryKey

                        registre = MachineLocale.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon")
                        Variable.VGConnectionUtilisateurWindows = registre.GetValue("DefaultUserName")

Seulement le login récupéré est celui de l'ordinateur qui CONTIENT l'application est non celui de l'ordinateur qui UTILISE l'application.

Pouvez-vous m'aider svp ! merci :)

Xav88 · Answer

Salut,


Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Form_Load()
    'Nom Utilisateur
    Dim strUserName As String
    strUserName = String(100, Chr$(0))
    GetUserName strUserName, 100
    strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
    MsgBox "Bonjour " + strUserName
End Sub


Je ne sais pas si ça marche sur tous les OS mais sous 98 il n'y a pas de problèmes....

 :) Xavier :)

andrieuremi · Answer

je l'ai test&#233; et &#231;a marche sous XP aussi donc... :-)

andrieuremi · Answer

je l'ai test&#233; et &#231;a marche sous XP aussi donc... :-)

Récupérer le login utilisateur windows

3 réponses

Discussions similaires