recuperer le nom de session

Marsh Posté le 20-04-2005 à 11:49:42

bonjour

voila je cherche a recuperer le nom de la session windows qui est active
savez vous comment je peux faire ??

merci

Reply

Marsh Posté le 20-04-2005 à 11:49:42

Reply

Marsh Posté le 20-04-2005 à 11:53:26

utilise la variable de windows USERNAME qui est en fait egale au nom de la session...

Reply

Marsh Posté le 20-04-2005 à 16:07:43

et comment on y accede ?

si je tape USERNAME dans mon code il va prendre ça pour une variable comme une autre

je debute dsl

Reply

Marsh Posté le 20-04-2005 à 19:15:15

personne?

Reply

Marsh Posté le 21-04-2005 à 18:47:03

Voici les deux lignes permettant de récupérer le nom du user en .VBS

Set wshnetwork = WScript.CreateObject("WScript.Network" )
user = wshnetwork.username

domain = wshnetwork.userdomain
computer = wshnetwork.computername

Tu trouveras si besoin quelques liens utiles dans le post suivant.

http://forum.hardware.fr/forum2.ph [...] subcat=396

Reply

Marsh Posté le 03-08-2005 à 11:42:59

Bonjour a tous,

J'ai copier ces 2 lignes pour récupérer le nom de la session

Citation :

Set wshnetwork = WScript.CreateObject("WScript.Network" )
user = wshnetwork.UserName

MsgBox (user)

Je ne m'y connais pas tres bien, mais j'ai une erreur sur la 1ere ligne : objet requis !

A quoi cela signifie et comment corriger cet erreur ?

Merci

Reply

Marsh Posté le 10-08-2005 à 10:00:51

Citation :

Set wshnetwork = WScript.CreateObject("WScript.Network" )
user = wshnetwork.UserName

MsgBox (user)

Ton erreur vien turement du fait que tu ais mis user entre parenthèses dans la ligne MSgbox.

Tape simplement
Msgbox user

Sinon une autre solution pour récuperer le nom d'utilisateur est d'utiliser les variales d'environnement.
je crois que se n'est dispo que sur XP/2000 mais sa reste à confirmer (quelqun le sais?)

msgbox environ("username" )

Reply

Marsh Posté le 10-08-2005 à 10:10:55

Citation :

Je ne m'y connais pas tres bien, mais j'ai une erreur sur la 1ere ligne : objet requis !

Citation :

Ton erreur vien turement du fait que tu ais mis user entre parenthèses dans la ligne MSgbox.

Humm.

Bon tu les as copié. Ok tu les a mises où ? Dans quel type de fichier ? Sois un peu plus précis.
Si tu les as mises dans un fichier de type VBS, normalement ca doit fonctionner (idem pour VBA, VB6)

---------------
now : do nothing

Reply

Marsh Posté le 21-11-2005 à 23:30:35

Tu as essayé d'enlever Wscript devant le CreateObject ? Chez moi lorsque que je le mets le Wscript cela ne fonctionne pas alors ... Surtout que l'erreur porte sur la premiere ligne et non la derniere.

Reply

Marsh Posté le 19-12-2007 à 21:04:05

@[°L*]@

Aie, ça marche pas :-(, franchement Microsoft aurais pu avoir un manuel de reference comme php pour les développeurs...

Ils veulent une communauté et ils ne s'en donne pas les moyens malgré toute la thune qu'ils ont franchement déplorable trimer autant pour avoir ci peut d'information pas entonnant que les développeurs prennent le pari du libre (linux)...

Ms fait attention car quand une version de linux mis au point par les acteurs du secteurs sera disponible en multimedia y compris les outils de developpement de jeux comme directX tu auras tres tres mal et il sera trop tard pour dire "si j'avais su"

Comme disait JCB "Tout ce qui existe est voué a disparaître un jour ou l'autre" surtout quand c'est pour du useless hack

Reply

Marsh Posté le 19-12-2007 à 21:04:05

Reply

Marsh Posté le 19-12-2007 à 22:38:21

Soir Bon
Sous VBA Excel

Option Explicit

Sub VariablesEnvironnement()
Dim i As Integer, sEnv As String
Dim Pos As Integer
ActiveWorkbook.Worksheets.Add
i = 1
Do
sEnv = Environ(i)
If Len(sEnv) = 0 Then Exit Do
Pos = InStr(Environ(i), "=" )
Cells(i, 1) = Left(sEnv, Pos - 1)
Cells(i, 2) = Right(sEnv, Len(sEnv) - Pos)
i = i + 1
Loop
End Sub

Sub Tst()
MsgBox Environ("USERNAME" )
End Sub

Message édité par kiki29 le 19-12-2007 à 23:17:30

Reply

recuperer le nom de session

Sujets relatifs:

Leave a Replay