Utilisateur Connecté vu depuis un service WXP

psdvb Messages postés 10 Date d'inscription vendredi 19 septembre 2003 Statut Membre Dernière intervention 2 juin 2010 - 31 août 2005 à 14:53
scortex84 Messages postés 379 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 20 avril 2011 - 31 août 2005 à 16:15
Bonjour a tous,


Quelqu'un connait-il le moyen de connaitre l'utilisateur connecte, sachant que c'est un service WXP qui se pose la question.
Si j'utilise les procedures trouvees ici, le service m'annonce le compte SYSTEM (ce qui est normal).
Ce que je voudrais connaitre c'est l'utilisateur (s'il existe) qui est connecte sur une session sur la machine qui tourne le service.
Merci de vos reponses

2 réponses

EddiePonpon Messages postés 33 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 31 août 2005
31 août 2005 à 15:37
C'est pas de moi, mais je l'avais déjà trouvé sur le site ...

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nsize As Long) As Long

Public Function UserName() As String
' Retourne le login windows actif

Dim stTmp As String, lgTmp As Long
stTmp = Space$(250)
lgTmp = 251
Call GetUserName(stTmp, lgTmp)
UserName = Split(stTmp, Chr$(0))(0)

End Function
0
scortex84 Messages postés 379 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 20 avril 2011 1
31 août 2005 à 16:15
Hello,

On peut aussi utiliser les variables d'environnement :
Environ("username")

Seb.
0
Rejoignez-nous