Récup du YUSER de Windows

[SISSI]

Bonjour,

J'aimerais savoir s'il est possible de récupérer le yuser (login) Windows 2000 de la personne qui s'est connecté à Notes dans un champs pour le stocké dans une base pour faire un suivi de message.

Nota : je ne peux pas stocker le nom via l'ID car la personne se connecte avec un compte anonyme (générique) et que plusieurs personnes se connecterons à cette base.

Merci,

[Michael DELIQUE]

Salut

regarde ce tips => http://www.dominoarea.org/phpBB2/viewtopic.php?t=12926

ça devrait répondre à ta question

[oguruma]

j'ai déposé sur mon site une base qui synthétise tout cela dans une classe Notes personnalisée
C'est le fichier AdHocTools si j'ai bonne mémoire, et je crois aussi avoir publié la classe dans les tips et aussi fait une annonce dans ce forum de la disponibilité de ce fichier

http://www.dominoarea.org/oguruma/index.php?choix=5
==> c'est le dernier fichier
il y aussi plein d'autres classes...

[LSong]

je suis interessé par la reponse à la question sauf que les liens ne marche plus ...

[LSong]

j'ai trouvé

Dim winun as String
...
winun = Environ("username")

tout betement

[Michael DELIQUE]

salut

sinon

Code : Tout sélectionner

Public Function WindowsUserName As String
   
   'Déclaration variable
   Dim vrShell As Variant
   
   On Error Goto ErreurHandle
   
   Set vrShell = CreateObject("WScript.Shell")
   WindowsUserName = vrShell.ExpandEnvironmentStrings("%username%")
   
   Set vrShell = Nothing
   
   Exit Function
ErreurHandle:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   WindowsUserName = ""   
   Exit Function
End Function