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 : Sélectionner tout - Visualiser dans une fenêtre à part
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