TROUVER LE NOM DE D'UTILISATEUR CONNECTE SUR LE PC

Signaler
Messages postés
48
Date d'inscription
samedi 5 avril 2003
Statut
Membre
Dernière intervention
21 avril 2008
-
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/91-trouver-le-nom-de-d-utilisateur-connecte-sur-le-pc

Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
ca fonctionne, mais ca risque de coincer sur d'autres ordinateurs...
Psychotronic
Messages postés
21
Date d'inscription
mardi 17 juillet 2007
Statut
Membre
Dernière intervention
17 décembre 2008

Mais sa marche à la perfection...j'suis un débutant en VB, j'ai commencé pour la première fois il y a deux jours !
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
aïe...
je te files une fonction toute faite
tu n'avais rien a faire, juste (j'aime toujours pas cet event mais bon) :

Private Sub Label6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.TextChanged
Label6.Text = GetUserName
End Sub


tu as introduit un bug potentiel... tu ne vérifie pas si tu as bien DOMAIN\USERNAME
et tu prend d'office l'element #1 d'un tableau qui n'en est peut etre pas un...
Psychotronic
Messages postés
21
Date d'inscription
mardi 17 juillet 2007
Statut
Membre
Dernière intervention
17 décembre 2008

C'était pas exactement ce que j'espérais trouver mais ça a quand même marché avec quelques modifications :

Private Sub Label6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.TextChanged
Dim parts() As String = Split(My.User.Name, "")
Dim username As String = parts(1)
Label6.Text = username
End Sub

Merci RenField ;)
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
lire la doc t'aurait évité cette question...

en effet, on trouve ici : http://msdn2.microsoft.com/fr-fr/library/ms172997(VS.80).aspx

un code en VB2005 :

Function GetUserName() As String
If TypeOf My.User.CurrentPrincipal Is _
Security.Principal.WindowsPrincipal Then
' The application is using Windows authentication.
' The name format is DOMAIN\USERNAME.
Dim parts() As String = Split(My.User.Name, "")
Dim username As String = parts(1)
Return username
Else
' The application is using custom authentication.
Return My.User.Name
End If
End Function