Resultat dans un fichier %username%

Bonjour,

J'ai mon code qui fonctionne comme je veux mais j'aimerai qu'au moment ou il crée le fichier il le nomme selon l'user qui a activer le script.

donc au lieu de c:\wsh\tp1\test.txt j'aimerai c:\wsh\tp1\TOTO.txt

Voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit	'implique que je déclare toutes les variables
 
Dim objReseau
Dim chMsg1, chMsg2, chMsg3, chMessage
Dim monnom
Dim objSF, MonFichier
 
Set objSF = CreateObject("Scripting.FileSystemObject")
 
Set MonFichier = objSF.CreateTextFile("c:\wsh\tp1\test.txt")
 
 
 
 
'instanciation (création) d’un objet de type NetWork
Set objReseau = CreateObject("Wscript.Network")
 
 
 
 
monFichier.writeline("Vous ête connecté en tant que : " & objReseau.UserName)
monFichier.writeline("sur la machine nommée : " & objReseau.ComputerName)
monFichier.writeline("dans le domaine : " & objReseau.UserDomain)
 
 
 
MonFichier.Close
Wscript.Echo "Vérifiez dans le répertoire l'existence du fichier test.txt"
 
Wscript.Echo chMessage

(ps : je débute dans le scripting)

merci

Option Explicit 'implique que je déclare toutes les variables Dim objReseau Dim chMsg1, chMsg2, chMsg3, chMessage Dim monnom Dim objSF, MonFichier Set WshNetwork.CreateObject("Wscript.Network") UserName = WshNetwork.Username Set objSF = CreateObject("Scripting.FileSystemObject") Set MonFichier = objSF.CreateTextFile("c:\wsh\tp1\" & UserName & ".txt") 'instanciation (création) d’un objet de type NetWork Set WshNetwork = CreateObject("Wscript.Network") MonFichier.writeline("Vous ête connecté en tant que : " & UserName) MonFichier.writeline("sur la machine nommée : " & shNetwork.ComputerName) MonFichier.writeline("dans le domaine : " & WshNetwork.UserDomain) MonFichier.Close Wscript.Echo "Vérifiez dans le répertoire l'existence du fichier " & UserName & ".txt" Wscript.Echo chMessage