quand pas erreur : enregistrer dans un fichier log le résultat de l'exécution d'un script
Bonjour,
Je souhaite créer un fichier log dans lequel on enregistre le résultat de l'éxecution d'un programme si celui-ci ne détecte aucune erreur.
J'ai réussi à enregistrer les erreurs dans un fichier log. mais quand pas erreur, je n'y arrive pas.
En linux, on utilise cat pour récupérer la sortie de l'écran
Si quelqu'un a une idée , je le remercie d'avance.
voici le code pour récupérer uniquement les erreurs (ce code fonctionne)
Code:
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
| ' déclaration de la variable ModeDebug (de debugage)
Dim ModeDebug
' déclaration des objets
Dim objFSO, objLOG
'instanciation des variable
ModeDebug = 0
'============= Début du script qui sert pour le débugage ========'
'Vérification que le lot reçu n'est pa vide
set obj=CreateObject("Scripting.FileSystemObject")
set objFolder_1=obj.GetFolder("C:\Application\LOT")
if objFolder_1.Size = 0 then
ModeDebug = 1
else
wscript.echo "le lot reçu n'est pas vide"
end if
'création de l'instance de l'objet de FSO et création du fichier de LOG
set objFSO = CreateObject("Scripting.FileSystemObject")
set objLOG = objFSO.CreateTextFile("C:\Test\LOG.txt")
'appel de la fonction fncModeDebugde débugage
fncModeDebug "la taille du répertoire est zèro ==> le lot est vide ou l'installation est déjà faite"
wscript.echo vbcrlf
function fncModeDebug(Action)
If ModeDebug = 1 Then
Wscript.echo Action
objLOG.WriteLine Action
'objFic.WriteLine Action
if Err <> 0 Then
'echo de la description de l'erreur
wscript.echo vbcrlf
wscript.echo "la source de l'erreur = " &Err.source
wscript.echo "une erreur s'est produite" & "Description :" & Err.description
wscript.echo "le numéro de l'erreur = " &Err.number
'inscription de l'erreur dans le fichier LOG
objLOG.WriteLine "Erreur" & "Description :" & Err.description
objLOG.WriteLine "le numéro de l'erreur =" & Err.number
objLOG.WriteLine "la source de l'erreur =" & Err.source
'Réinitialisation de l'objet Err
Err.Clear
Else
objLOG.WriteLine "Tout se passe bien"
End If
End If
End Function |
merci pour votre aide
dadaapocalypse
