Comment récupérer le nom utilisateur windows ?

Question

Je cherches a récupérer le nom d'utilisateur (users) de connexion windows.
Et Je me demande si cette commande et différente entre 98,NT,2000 ou bien encore XP
Y aurait-il une âme charitable pour m'éclairer ?
Merci d'avance

appstmd · Answer

essaie la clé dans le registre :
HKEY_LOCAL_MACHINE\Software\microsoft\windows\currentversion 

et la valeur registeredowner

cs_dlaurent · Answer

La clé que l'on t-a donnée correspond à l'utilisateur enregistré (Install de Windows), pour connaitre le dernier utilisateur connecté : HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName Avec la commande nbtstat.exe nbtstat -a NomMachine Connexion au réseau local: Adresse IP du noud : [xxx.xxx.xxx.xxx] ID d'étendue : [] Table de noms NetBIOS des ordinateurs distants Nom Type État --------------------------------------------- NomMachine <00> UNIQUE Inscrit DOMAINE <00> GROUP Inscrit NomMachine <03> UNIQUE Inscrit NomMachine$ <03> UNIQUE Inscrit NomMachine <20> UNIQUE Inscrit DOMAINE <1E> GROUP Inscrit NomUser <03> UNIQUE Inscrit Adresse MAC = xx-xx-xx-xx-xx-xx Tu peux très bien enregistrer le résultat de cette commande et l'analyser ensuite pour connaitre le nom de l'utilisateur Tu peux regarder le lien suivant que je viens de déposer. http://www.vbfrance.com/article.aspx?Val=5665 Lolo

zeunz · Answer

encore mieux:

Public Function UserName() As String
'************************************************************
'     Fonction retournant le nom de l'utilisateur du PC     *
'************************************************************


'D&#233;claration des variables
Dim llReturn As Long
Dim lsUserName As String
Dim lsBuffer As String


'Initialisation des variables
lsUserName = ""
lsBuffer = Space$(255)
llReturn = GetUserName(lsBuffer, 255)


'R&#233;cup&#233;ration du nom de l'utilisateur
If llReturn Then
   lsUserName = Left$(lsBuffer, InStr(lsBuffer, Chr(0)) - 1)
End If
UserName = lsUserName


End Function

sub main()
      msgbox UserName
end sub

bye @+

zeunz · Answer

sans oublier la décvlaration de l'api...

'Nom de l'utilisateur
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
                         (ByVal lpBuffer As String, nSize As Long) As Long

fouguy2007 · Answer

moi meme je cherche un code qui permet de recuperer les utilisateurs sous windows2003 server sous visual  fox pro

Comment récupérer le nom utilisateur windows ?

5 réponses

Discussions similaires