VBS afficher le nom de la session windows

Fermé
floflo55 Messages postés 221 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 21 août 2014 - 22 avril 2013 à 17:44
antoine9298 Messages postés 101 Date d'inscription vendredi 5 avril 2013 Statut Membre Dernière intervention 23 décembre 2014 - 26 avril 2013 à 23:17
Bonjour à tous,
J'ai fait un programme en VBS avec le bloc note,
mais j'ai une question y a t il y code qui permet de relever et d'afficher dans une msgbox le nom de l'utilisateur la session windows utilisée ???

Merci d'avance :)
A voir également:

2 réponses

ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
22 avril 2013 à 21:16
Essaie avec ce bout de code :

wscript.echo oWshShell.ExpandEnvironmentStrings("Username=%UserName%") 

1
floflo55 Messages postés 221 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 21 août 2014 4
22 avril 2013 à 23:03
Merci beaucoup :)
mais ce n'est pas ce que je veux !!!

Ce que je veux c'est crée une variable dans lequel je veux stocker le nom de la session pour pouvoir par la suite écrire

msgbox variable


Un très grand merci d'avance ;)
0
ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
Modifié par ozone_ le 22/04/2013 à 23:11
Dans ce cas :
Dim variable
variable = oWshShell.ExpandEnvironmentStrings("%UserName%")  
msgBox variable
0
floflo55 Messages postés 221 Date d'inscription mardi 21 août 2012 Statut Membre Dernière intervention 21 août 2014 4
22 avril 2013 à 23:17
Merci mais cela me marque "Erreur : Objet requis: oWshShell

Comment régler ce problème ???

PS:
Le code est:

dim user
user = oWshShell.ExpandEnvironmentStrings("%UserName%")
msgbox user
0
ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
23 avril 2013 à 17:34
dim user
Set wshShell = CreateObject("Wscript.Shell")
user = oWshShell.ExpandEnvironmentStrings("%UserName%")
msgbox user
0
antoine9298 Messages postés 101 Date d'inscription vendredi 5 avril 2013 Statut Membre Dernière intervention 23 décembre 2014 6
26 avril 2013 à 23:17
Ça m'intéresserai aussi ;-)
0