Pouvez-vous me dire comment récupérer les noms des utilisateur d'un PC et l'afficher ds un label (VB 2005)

Réponse acceptée !

Salut,

Api...à déclarer soit dans ta form, soit un module dans ce cas Private >> Public :

 Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer AsString, nSize AsInteger ) AsInteger

Private Function UserId() AsString
   
'**************************************************************************/
' Fonction qui donne l'user de la machine
'**************************************************************************/
   
    ' Retourne le nom d'utilisateur enregistrer sur sa machine

     Dim ValParm AsString
     Dim ret AsInteger 
     Dim Lng AsInteger

     ValParm = String$(20, " ")
     Lng = Len(ValParm)
     ret = GetUserName(ValParm, Lng)
     UserId = Left$(ValParm, Lng - 1)

End Function

Utilisation dans ton form_load :

TonLabel = UserId

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Réponse acceptée !
Salut a toi. Sinon pour le nom d'utilisateur actuel tu a :

My.User.Name

qui est le nom complet avec le nom  du PC avent.
Pour avoir que le nom d'utilisateur tu met :

Dim UserName As String = My.User.Name.Substring(My.User.Name.LastIndexOf("\") + 1)

Tu a tout ça dans un tutorial sur ce site :
http://www.vbfrance.com/tutoriaux/INFOS-SYSTEME-AVEC-VB-NET_207.aspx

Voila j'espére t'avoir aidé.