TROUVER LE NOM DE D'UTILISATEUR CONNECTE SUR LE PC
Aramiil
Messages postés
48
Date d'inscription
samedi 5 avril 2003
Statut
Membre
Dernière intervention
21 avril 2008
-
1 sept. 2003 à 18:21
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 18 juil. 2007 à 22:55
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 18 juil. 2007 à 22:55
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
https://codes-sources.commentcamarche.net/source/91-trouver-le-nom-de-d-utilisateur-connecte-sur-le-pc
18 juil. 2007 à 22:55
18 juil. 2007 à 17:25
18 juil. 2007 à 17:15
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...
18 juil. 2007 à 16:38
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 ;)
18 juil. 2007 à 16:11
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
18 juil. 2007 à 15:48
18 juil. 2007 à 07:41
heureusement que .Net est plus malin, sinon, bonjour les boucles sans fin ^^
18 juil. 2007 à 05:12
Pour l'inscrire dans unelabel existante, faites :
Private Sub NomDuLabel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NomDuLabel.TextChanged
NomDuLabel.Text = "Bienvenue " & My.User.Name
End Sub
15 mai 2007 à 19:12
15 mai 2007 à 13:18
8 déc. 2004 à 14:18
jte mé 10/10
7 déc. 2004 à 23:09
Private Sub Form_Load()
Dim Ch As String
Dim a As Long
Dim b As Long
Dim Utilisateur As String
a = 199
Ch = String$(200, 0)
b = GetUserName(Ch, a)
If b <> 0 Then Utilisateur Left$(Ch, a - 1) Else Utilisateur ""
MsgBox ("Utilisateur loggé : " & Utilisateur & "Hello")
End Sub
Maintenant, si tu trouves pas le code suivant plus simple....
Private Sub Form_Load()
Dim Utilisateur As String
Utilisateur = Environ$("username")
MsgBox ("Utilisateur loggé : " & Utilisateur & "Hello")
End Sub
7 déc. 2004 à 21:15
a = 199
Ch = String$(200, 0)
b = GetUserName(Ch, a)
If b <> 0 Then utilisateur Left$(Ch, b) Else Utilisateur ""
MsgBox utilisateur
parceque si je fait ça j'ai juste la premier lettre du nom d'utilisateur et si je met juste
If b <> 0 Then utilisateur Left$(Ch, b) Else Utilisateur ""
je n'est rien du tout
7 déc. 2004 à 20:46
sinon, fais simplement
If b <> 0 Then Utilisateur Left$(Ch, b) Else Utilisateur ""
7 déc. 2004 à 19:42
utilisateur = utilisateur + "Ajout"
msgbox utilisateur
resultat : juste le nom de l'utilisateur
merci si vous avez une solution
27 août 2004 à 11:35
la fonction environ s'en charge :
MsgBox environ$("username")
1 févr. 2004 à 02:07
1 sept. 2003 à 18:21