Discussion :

[inco69]

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

[spantemonium]

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
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