Discussion :

[Krout]

Bonjour, j'ai complété un script que j'ai trouvé sur le net concernant la suppression de fichiers temporaires. Seulement je cherche à inscrire dans le journal d'événement, d'une part si la suppression de tel ou tel fichier s'est bien réalisé, et d'autre par une erreur,si ce fichier ne s'est pas supprimer correctement.
Voici mon code VBS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
' This WSH script deletes files in all users' temp folders
'======================
 
Dim WshSysEnv, WshShell, userprof, WSHFso, WshNetwork
 
Set WSHShell = WScript.CreateObject("WScript.Shell") 
Set WSHFso = WScript.CreateObject("Scripting.FileSystemObject") 
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = createobject("Scripting.filesystemobject")
Set WshSysEnv = WshShell.Environment("Process")
 
userprof = WshSysEnv("userprofile")
 
'SUPPRESSION DES FICHIERS INUTILES
Set oShell = CreateObject("Wscript.Shell")
'oShell.Run "%Comspec% /C RD /S /Q ""%USERPROFILE%\COOKIES"" ", 0, true
'On error resume next1
oShell.Run "%Comspec% /C RD /S /Q ""%USERPROFILE%\AppData\local settings\Tempor~1"" ", 0, True
On error resume next
oShell.Run "%Comspec% /C RD /S /Q ""c:\TEMP"" ", 0, True
On error resume next
oShell.Run "%Comspec% /C RD /S /Q ""%USERPROFILE%\AppData\local settings\Temp"" ", 0, True
On error resume next
'SUPPRIME LES FICHIERS IE TEMP'
oShell.Run "%Comspec% /C RD /S /Q ""%USERPROFILE%\AppData\local settings\Microsoft\Windows\Temporary Internet Files"" ", 0, True
On error resume next

Pourriez vous m'aider à introduire ce rapport dans le journal windows ? je sais que je dois utiliser l'élément "WriteToEventViewer" mais je ne sais pas du tout comment faire ??!!

[ced600]

Il est clair que tu ne t'es pas foulé dans tes recherches.
En 2 minutes j'ai trouvé à l'aide de google un lien vers la FAQ VBScript de ce site !!!

En plus dans mes recherches j'ai vu que tu as posté le même message sur d'autre forum !!! Au plus rapide c'est ça ?

Tu pourrais avoir un peu de respect pour ce qui réponde sur les forums à tes problèmes en cherchant toit même avant de poster !!!

[Krout]

En même tant je n'ai jamais dis que je l'avais fait moi même, je l'ai juste adapté de ce que j'avais compris.
J'ai ensuite trouvé comment écrire dans le fichier de log :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
' Write Events to the Local Event Log
 
 
Const EVENT_FAILED = 0
 
Set objShell = Wscript.CreateObject("Wscript.Shell")
 
objShell.LogEvent EVENT_FAILED, _
    "%USERPROFILE%\AppData\local settings\Tempor~1 : could not be deleted"

ce code-ci tout seul fonctionne, mais pourrais-tu alors me guider pour réussir à l'utiliser dans mon code précédent.
En clair faire le lien : si dossier supprimer | ou existe plus alors on écrit que la suppression s'est bien passé, si dossier pas supprimer | ou toujours présent, on écrit que la suppression s'est mal passé .
je ne vois pas comment faire ces tests ...

[ced600]

Regarde du coté de FileSystemObject et de son objet Folder.
Sur le site MSDN tu as toutes la doc sur FileSystemObject, et la Faq VBS de ce site donne des exemples d'utilisations de FileSystemObject.

[Krout]

Merci pour ta réponse, je vais voir ce que tu me conseils et je te tiens au courant