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("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.
A voir également:
Comment renommer un fichier texte contenant le nom