Trouver le nom de d'utilisateur connecte sur le pc
Soyez le premier à donner votre avis sur cette source.
Vue 24 153 fois - Téléchargée 966 fois
Description
Comment puis-je connaître le nom d'utilisateur de l'utilisateur loggé ?
Mettez ce code dans un Module :
Mettez ce code dans un Module :
Source / Exemple :
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
' Puis Utilisez ce code dans votre Formulaire dans le Form_Load par Exemple :
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) Else Utilisateur = ""
MsgBox ("Utilisateur loggé : " & Utilisateur)
End Sub
Codes Sources
A voir également
- Trouver le nom de d'utilisateur connecte sur le pc
- Comment ajouter le nom de l'utilisateur connecté dans une barre d'état (statusst ✓ - Forum - VB.NET
- Vbsctips trouver l'utilisateur connecté sur un poste ✓ - Forum - Visual Basic 6
- Utilisateur connecté - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Trouver le nom long à partir du nom ms-dos 8.3 - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Visual Basic / VB.NET : Affichage nom de domaine ,nom poste et utilisateur sous nt4 - CodeS SourceS - Guide
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
67- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
67je 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...
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 ;)
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
67en 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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.