fichier.bat creer une ligne dans evenement

Dans le message news:41b49182$0$16332$8fcfb975@news.wanadoo.fr ,
Harry Covert <hcover@hotmail.com> s'est ainsi exprimé:

Bonjour

Je lance une tache avec un fichier .bat
Comment écrire une ligne dans le journal des événements du PC.
je suis en win2k (et pour winnt4) ??

1) Avec l'utilitaire LOGEVENT.EXE du Resource Kit (9 ko)
=========================================
Syntaxe :
logevent [-m \MACHINENAME] [-s SIWEF] [-c CategoryNumber] "Event Text"

Severity is one of (S)uccess, (I)nformation, (W)arning, (E)rror or
(F)ailure.

Exemples :

logevent "Batch program failed"

logevent -m \Master -s W -c 999 "Fatal Error !"


2) On peut aussi utiliser un VBScript
========================== Avec la méthode "LogEvent" de l'objet "Shell" :
http://www.bellamyjc.org/fr/vbsobj/wsmthlogevent.html

fichier "evenement.vbs"

-------------- couper ici --------------
' Script d'écriture dans l'observateur d'événements
' JCB © 2003
'
' Syntaxe :
' evenement eventType,message [,server]
'
' Paramètres :
'
' eventType= 0 : succès
' eventType= 1 : erreur
' eventType= 2 : alerte
' eventType= 4 : information
' eventType= 8 : succès de l'audit
' eventType : échec de l'audit
'
' message : le texte à afficher (encadrer avec des guillemets)
' server : le nom de la machine concernée (facultatif. Si omis :local)
Dim Shell,args
Set args= wscript.arguments
Set shell = WScript.CreateObject("WScript.Shell")
if args.count<2 then
wscript.echo "Paramètres manquants"
wscript.quit
end if
eventType=args(0)
message=args(1)
if args.count<3 then
Shell.LogEvent eventType, message
else
server=args(2)
Shell.LogEvent eventType, message, server
end if
-------------- couper ici --------------


NB: "logevent" de l'objet "shell" ne permet pas de définir une catégorie
(à la différence de l'outil du ResKit).
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr

Merci
Toujours l'excellent Bellamy, incontournable.

a+

"Jean-Claude BELLAMY" <Jean-Claude.Bellamy@wanadoo.fr> a écrit dans le
message de news:eYjPC472EHA.2540@TK2MSFTNGP09.phx.gbl...

Dans le message news:41b49182$0$16332$8fcfb975@news.wanadoo.fr ,
Harry Covert <hcover@hotmail.com> s'est ainsi exprimé:

Bonjour

Je lance une tache avec un fichier .bat
Comment écrire une ligne dans le journal des événements du PC.
je suis en win2k (et pour winnt4) ??

1) Avec l'utilitaire LOGEVENT.EXE du Resource Kit (9 ko)
========================================= >
Syntaxe :
logevent [-m \MACHINENAME] [-s SIWEF] [-c CategoryNumber] "Event
Text"

Severity is one of (S)uccess, (I)nformation, (W)arning, (E)rror or
(F)ailure.

Exemples :

logevent "Batch program failed"

logevent -m \Master -s W -c 999 "Fatal Error !"


2) On peut aussi utiliser un VBScript
========================== > Avec la méthode "LogEvent" de l'objet "Shell" :
http://www.bellamyjc.org/fr/vbsobj/wsmthlogevent.html

fichier "evenement.vbs"

-------------- couper ici --------------
' Script d'écriture dans l'observateur d'événements
' JCB © 2003
'
' Syntaxe :
' evenement eventType,message [,server]
'
' Paramètres :
'
' eventType= 0 : succès
' eventType= 1 : erreur
' eventType= 2 : alerte
' eventType= 4 : information
' eventType= 8 : succès de l'audit
' eventType : échec de l'audit
'
' message : le texte à afficher (encadrer avec des guillemets)
' server : le nom de la machine concernée (facultatif. Si omis :local)
Dim Shell,args
Set args= wscript.arguments
Set shell = WScript.CreateObject("WScript.Shell")
if args.count<2 then
wscript.echo "Paramètres manquants"
wscript.quit
end if
eventType=args(0)
message=args(1)
if args.count<3 then
Shell.LogEvent eventType, message
else
server=args(2)
Shell.LogEvent eventType, message, server
end if
-------------- couper ici --------------


NB: "logevent" de l'objet "shell" ne permet pas de définir une catégorie
(à la différence de l'outil du ResKit).
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr