Je suis tombé sur une question intéressante dans les newsgroups: Demander pourquoi aux admins pourquoi ils ouvrent une session sur un serveur. La personne aurait voulut le faire par GPO, mais cela n’est pas possible. Son objectif était d’avoir quelque chose de similaire au formulaire que windows 2003 affiche quand on veut redémarrer & co.
J’ai donc écrit un petit script VBS qui pose la question et enregistre la réponse dans l’eventlog application:
‘==========================================================================‘
‘
‘ NAME: <logger.vbs>
‘
‘ AUTHOR: Mathieu CHATEAU, gollum123@free.fr
‘ DATE : 11/10/2007
‘
‘ COMMENT: <Ask a reason for logging, then keep a trace in Application eventlog>
‘
‘==========================================================================
option explicit
Dim msg, objshell,UserName
Const EVENT_SUCCESS = 0
Set objShell = Wscript.CreateObject(« Wscript.Shell »)
UserName = objShell.ExpandEnvironmentStrings(« %username% ») msg = InputBox(« Pourquoi ouvrez-vous une session? »)
if msg = « » then
msg= »a refuse de dire pourquoi »
end if
objShell.LogEvent EVENT_SUCCESS, UserName & » a ouvert une session car: » & msg
Set objShell = Nothing
J’aime beaucoup 🙂