COMMENT RÉCUPÉRER LE NOM DU USER CONNECTÉ À WINDOWS ?
thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
-
1 mars 2004 à 11:36
bibi1981 Messages postés 3 Date d'inscription mardi 14 janvier 2003 Statut Membre Dernière intervention 23 octobre 2004 - 24 oct. 2007 à 10:03
bibi1981 Messages postés 3 Date d'inscription mardi 14 janvier 2003 Statut Membre Dernière intervention 23 octobre 2004 - 24 oct. 2007 à 10:03
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/20850-comment-recuperer-le-nom-du-user-connecte-a-windows
https://codes-sources.commentcamarche.net/source/20850-comment-recuperer-le-nom-du-user-connecte-a-windows
24 oct. 2007 à 10:03
18 janv. 2006 à 19:01
étrange que cela bloque chez toi. Je testerai chez moi
18 janv. 2006 à 17:25
18 janv. 2006 à 17:19
18 janv. 2006 à 16:47
Set oUser = GetObject("LDAP://" & oSystemInfo.UserName)
"le mappage entre les noms de compte et les ID de sécurité n'a pas été éffectué."
kézako ?
18 janv. 2006 à 12:27
Public Function GetFullUserName() As String
Dim oSystemInfo As Object
Dim oUser As Object
On Error Resume Next
Set oSystemInfo = CreateObject("ADSystemInfo")
Set oUser = GetObject("LDAP://" & oSystemInfo.username)
GetFullUserName = oUser.fullname
End Function
Private Sub Form_Load()
MsgBox "Bienvenue, " & GetFullUserName & "."
End Sub
18 janv. 2006 à 10:41
26 oct. 2005 à 13:54
10/10
2 mars 2004 à 13:43
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function UserName() As String
'# On créé une variable tampon, pour contenir ce que renverra la fonction
Dim Buffer As String * 250
'# Cette variable va permettre de spécifier et de récupérer la taille de notre tampon
Dim Size As Long: Size = 251
'# Si la fonction renvoie une valeur <> 0, elle a fait son oeuvre...
If GetUserName(Buffer, Size) Then
'# Size contient maintenant le nombre de caractères copiés dans Buffer
UserName = Left$(Buffer, Size)
End If
End Function
2 mars 2004 à 07:31
j'en ai eu besoin perso, et j'ai pensé que sa pourrais servir à d'autres.
C'est vrai que cette petite fonction peu donner plein de renseignements.
1 mars 2004 à 19:06
dim i as integer
for i = 1 to 42
msgbox environ(i)
doevents
next i
si sa peut servir.
1 mars 2004 à 11:36
y'a les deux solutions bon code pour memo ou pour les nouveaux