Comment renommer un fichier texte contenant le nom

Fermé
Drayaina - 4 mars 2016 à 11:03
Bonjour/Bonsoir (Selon l'heure à laquelle vous allez lire ce post ^^')


Actuellement en stage, j'aurais besoin de savoir comment faire pour renommer un fichier texte à la suite d'un script qui va créer lui même le fichier texte en question.
Par exemple, j'ai fais un script qui va citer les imprimantes installées sur le poste, afficher quel sera l'imprimante par défaut avec quelques info complémentaires ainsi que le nom de la machine, la session actuellement utilisée... Et tout cela transmit dans un fichier texte placé au même endroit que le script...
Ma demande consiste à savoir si on peut prendre par exemple la session utilisée et de renommer le fichier même avec la session utilisée et si possible comment faire.
Voici le script en question
    strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")

Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(".\ListPrinter.txt", True)


For Each objPrinter in colInstalledPrinters
tf.WriteLine("--------------------------------------------------------------")
tf.WriteLine("-----------------------Infos Principales----------------------")

tf.WriteLine("Nom de l'imprimante: " & objPrinter.Name)
tf.WriteLine("Imprimante par défaut: " & objPrinter.Default)
tf.WriteLine("Nom du Pilote: " & objPrinter.DriverName)
tf.WriteLine("PortName: " & objPrinter.PortName)
tf.WriteLine("Nom de partage: " & objPrinter.ShareName)

tf.WriteLine("--------------------------------------------------------------")
tf.WriteLine("-------------------------Autres infos-------------------------")

tf.WriteLine("Description: " & objPrinter.Description)
tf.WriteLine("Emplacement: " & objPrinter.Location)
Next

'---------------Retourne le nom de machine
Public Function Computer_Name()
Set WshNetwork = WScript.CreateObject("WScript.Network")
Computer_Name = WshNetwork.ComputerName
End Function

tf.WriteLine("Nom de la machine: " & Computer_Name)


'--------------Retourne de la session ouverte
'*** Déclaration des variables d'environnement
Set net = WScript.CreateObject("WScript.Network")
Dim nameUSER

nameUSER = net.username

'*** Affichage du nom de l'utilisateur
tf.WriteLine("Nom de session :" & nameUSER)

'*** Destruction des objets
Set net = Nothing
WScript.Quit

tf.Close




Merci de vos réponses :3 :p
Cordialement Drayaina.