Bonjour, j'ai créé un fichier vbs me permettant d'effectuer une mise à jour
de fichiers locaux de mes machines par rapport à des fichiers réseaux. Ce
script est lancé au démarrage des machines et s'effectue correctement. Mon
souci est que je voudrais compléter ce dernier en rajoutant des commandes qui
me permettent d'aller (une fois ma mise à jour effectuée) écrire dans un
fichier le nom de la station, le profil utilisateur et la date afin que je
puisse avoir une trace et un controle des mises à jour effectuées.
Si toutefois vous pouviez m'éclairer.
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Claude BELLAMY
Dans le message news: , VAURY Stéphane s'est ainsi exprimé:
Bonjour, j'ai créé un fichier vbs me permettant d'effectuer une mise à jour de fichiers locaux de mes machines par rapport à des fichiers réseaux. Ce script est lancé au démarrage des machines et s'effectue correctement. Mon souci est que je voudrais compléter ce dernier en rajoutant des commandes qui me permettent d'aller (une fois ma mise à jour effectuée) écrire dans un fichier le nom de la station, le profil utilisateur et la date afin que je puisse avoir une trace et un controle des mises à jour effectuées.
par exemple :
... ForReading=1 ForWriting=2 ForAppending=8
' Définition du fichier de trace .. Trace="m:textetrace.txt" ' ... Set net = Wscript.CreateObject("WScript.Network") Set fso = WScript.CreateObject("Scripting.FileSystemObject") ' ... if fso.FileExists(Trace) then set ts=fso.OpenTextFile(Trace,ForAppending) else set ts=fso.CreateTextFile(Trace,false) end if ts.WriteLine "Ordinateur " & Ucase(net.Computername) & " utilisateur " & Ucase(net.UserName) & " le " & now ts.Close
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
Dans le message news:746D11ED-A31B-4F07-BED2-6D1B18E5F899@microsoft.com ,
VAURY Stéphane <VAURYStphane@discussions.microsoft.com> s'est ainsi exprimé:
Bonjour, j'ai créé un fichier vbs me permettant d'effectuer une mise
à jour de fichiers locaux de mes machines par rapport à des fichiers
réseaux. Ce script est lancé au démarrage des machines et s'effectue
correctement. Mon souci est que je voudrais compléter ce dernier en
rajoutant des commandes qui me permettent d'aller (une fois ma mise
à jour effectuée) écrire dans un fichier le nom de la station, le
profil utilisateur et la date afin que je puisse avoir une trace et
un controle des mises à jour effectuées.
par exemple :
...
ForReading=1
ForWriting=2
ForAppending=8
' Définition du fichier de trace ..
Trace="m:textetrace.txt"
' ...
Set net = Wscript.CreateObject("WScript.Network")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' ...
if fso.FileExists(Trace) then
set ts=fso.OpenTextFile(Trace,ForAppending)
else
set ts=fso.CreateTextFile(Trace,false)
end if
ts.WriteLine "Ordinateur " & Ucase(net.Computername) & " utilisateur " &
Ucase(net.UserName) & " le " & now
ts.Close
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
Dans le message news: , VAURY Stéphane s'est ainsi exprimé:
Bonjour, j'ai créé un fichier vbs me permettant d'effectuer une mise à jour de fichiers locaux de mes machines par rapport à des fichiers réseaux. Ce script est lancé au démarrage des machines et s'effectue correctement. Mon souci est que je voudrais compléter ce dernier en rajoutant des commandes qui me permettent d'aller (une fois ma mise à jour effectuée) écrire dans un fichier le nom de la station, le profil utilisateur et la date afin que je puisse avoir une trace et un controle des mises à jour effectuées.
par exemple :
... ForReading=1 ForWriting=2 ForAppending=8
' Définition du fichier de trace .. Trace="m:textetrace.txt" ' ... Set net = Wscript.CreateObject("WScript.Network") Set fso = WScript.CreateObject("Scripting.FileSystemObject") ' ... if fso.FileExists(Trace) then set ts=fso.OpenTextFile(Trace,ForAppending) else set ts=fso.CreateTextFile(Trace,false) end if ts.WriteLine "Ordinateur " & Ucase(net.Computername) & " utilisateur " & Ucase(net.UserName) & " le " & now ts.Close
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
Jacques Barathon [MS]
Il me semble que tu as fait le plus dur, l'écriture d'un compte-rendu dans un fichier log étant une tâche des plus simples. Tu peux par exemple créer le fichier de commandes suivant, que tu pourras lancer à la suite de ton vbs ou même directement depuis ton vbs par la méthode run() de l'objet WScript.Shell.
--- début --- set myFiles=serversharemyFiles.txt set myLog=serversharemylogfile.log for /f %%f in (%myFiles%) do echo %computername%;%username%;%DATE%;%TIME%;%%f >> %myLog% --- fin ---
Dans l'exemple ci-dessus je considère que la liste des fichiers modifiés est stockée dans myFiles.txt et que mon compte-rendu s'appelle myLogFile.log, les deux étant accessibles en lecture/écriture sur servershare. Le compte-rendu consiste en une ligne par fichier modifié, reprenant le nom de l'ordinateur, le nom de l'utilisateur en cours, la date, l'heure et le nom du fichier modifié. Tout cela est évidemment laissé à ta discrétion.
Jacques
"VAURY Stéphane" wrote in message news:
Bonjour, j'ai créé un fichier vbs me permettant d'effectuer une mise à jour de fichiers locaux de mes machines par rapport à des fichiers réseaux. Ce script est lancé au démarrage des machines et s'effectue correctement. Mon souci est que je voudrais compléter ce dernier en rajoutant des commandes qui me permettent d'aller (une fois ma mise à jour effectuée) écrire dans un fichier le nom de la station, le profil utilisateur et la date afin que je puisse avoir une trace et un controle des mises à jour effectuées. Si toutefois vous pouviez m'éclairer. Merci
Il me semble que tu as fait le plus dur, l'écriture d'un compte-rendu dans
un fichier log étant une tâche des plus simples. Tu peux par exemple créer
le fichier de commandes suivant, que tu pourras lancer à la suite de ton vbs
ou même directement depuis ton vbs par la méthode run() de l'objet
WScript.Shell.
--- début ---
set myFiles=\serversharemyFiles.txt
set myLog=\serversharemylogfile.log
for /f %%f in (%myFiles%) do echo
%computername%;%username%;%DATE%;%TIME%;%%f >> %myLog%
--- fin ---
Dans l'exemple ci-dessus je considère que la liste des fichiers modifiés est
stockée dans myFiles.txt et que mon compte-rendu s'appelle myLogFile.log,
les deux étant accessibles en lecture/écriture sur \servershare. Le
compte-rendu consiste en une ligne par fichier modifié, reprenant le nom de
l'ordinateur, le nom de l'utilisateur en cours, la date, l'heure et le nom
du fichier modifié. Tout cela est évidemment laissé à ta discrétion.
Jacques
"VAURY Stéphane" <VAURYStphane@discussions.microsoft.com> wrote in message
news:746D11ED-A31B-4F07-BED2-6D1B18E5F899@microsoft.com...
Bonjour, j'ai créé un fichier vbs me permettant d'effectuer une mise à
jour
de fichiers locaux de mes machines par rapport à des fichiers réseaux. Ce
script est lancé au démarrage des machines et s'effectue correctement. Mon
souci est que je voudrais compléter ce dernier en rajoutant des commandes
qui
me permettent d'aller (une fois ma mise à jour effectuée) écrire dans un
fichier le nom de la station, le profil utilisateur et la date afin que je
puisse avoir une trace et un controle des mises à jour effectuées.
Si toutefois vous pouviez m'éclairer.
Merci
Il me semble que tu as fait le plus dur, l'écriture d'un compte-rendu dans un fichier log étant une tâche des plus simples. Tu peux par exemple créer le fichier de commandes suivant, que tu pourras lancer à la suite de ton vbs ou même directement depuis ton vbs par la méthode run() de l'objet WScript.Shell.
--- début --- set myFiles=serversharemyFiles.txt set myLog=serversharemylogfile.log for /f %%f in (%myFiles%) do echo %computername%;%username%;%DATE%;%TIME%;%%f >> %myLog% --- fin ---
Dans l'exemple ci-dessus je considère que la liste des fichiers modifiés est stockée dans myFiles.txt et que mon compte-rendu s'appelle myLogFile.log, les deux étant accessibles en lecture/écriture sur servershare. Le compte-rendu consiste en une ligne par fichier modifié, reprenant le nom de l'ordinateur, le nom de l'utilisateur en cours, la date, l'heure et le nom du fichier modifié. Tout cela est évidemment laissé à ta discrétion.
Jacques
"VAURY Stéphane" wrote in message news:
Bonjour, j'ai créé un fichier vbs me permettant d'effectuer une mise à jour de fichiers locaux de mes machines par rapport à des fichiers réseaux. Ce script est lancé au démarrage des machines et s'effectue correctement. Mon souci est que je voudrais compléter ce dernier en rajoutant des commandes qui me permettent d'aller (une fois ma mise à jour effectuée) écrire dans un fichier le nom de la station, le profil utilisateur et la date afin que je puisse avoir une trace et un controle des mises à jour effectuées. Si toutefois vous pouviez m'éclairer. Merci
