Bonjour a tous,

J'arrive a killer mes process parfaitement. Maintenant je veux creer un fichier log mais j'ai un soucis car il me cree bien le fichier mais n'ecrit rien dedans.

Voici mon code

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
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
 
Const PID = "_"
Const terminal = "not_a_TTY"
Const gravite = "WARNING"
Const valeur  = "OK"
Const EVENT_SUCCESS = 0
Private FSO, FicLog, FicLogBis
 
main
sub main()
Dim NOM_PROCESS
Dim args
Set args = WScript.Arguments
NOM_PROCESS= args(0)
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer 
 
& "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" 
 
& NOM_PROCESS & "'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next
end sub
 
'On instancie l'objet
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
 
'On instancie le fichier texte
Set Ftxt = FSO.CreateTextFile("D:\Script_test", False)
 
 
'Creation dy fichier Log
 
                If Err.Number = 0 Then
                        Set Ftxt = FSO.GetFile("D:\Script_test\SYS_LOG_systeme.log")
                        Set FtxtBis = Ftxt.OpenAsTextStream(8, -2)
                        FtxtBis.writeline (parametre)
                        FtxtBis.Close
                        Set FtxtBis = Nothing
                        Ftxt.Close
                        Set Ftxt = Nothing
                Else
                        Set Ftxt = 
 
FSO.CreateTextFile("D:\Script_test\SYS_LOG_systeme.log", False)
                        Set Ftxt = FSO.GetFile("D:\Script_test\SYS_LOG_systeme.log")
                        Set FtxtBis = Ftxt.OpenAsTextStream(8, -2)
                        FtxtBis.writeline (parametre)
                        FtxtBis.Close 'Fermeture
                        Set FtxtBis = Nothing
                        Ftxt.Close
                        Set Ftxt = Nothing
                End If
                FSO.Close
                WScript.Quit(1)
 
If Err.Number = 0 Then
                Set Ftxt = FSO.GetFile("D:\production\home\tws\log\SYS_LOG_systeme.log")
                Set FtxtBis = Ftxt.OpenAsTextStream(8, -2)
                FtxtBis.writeline (Year(date)) & vbTab & (Month(date)) & vbTab & 
 
(Day(date)) & vbTab & (time) & vbTab & (getSystemVar("COMPUTERNAME")) & vbTab & resultat1 
 
& vbTab & resultat2 & vbTab & (PID) & vbTab & (terminal) & vbTab & resultat5 & vbTab & 
 
resultat4 & vbTab & return & vbTab & (gravite) & vbTab & resultat3 & vbTab & 
 
(getSystemVar("UNISON_JOBNUM")) & vbTab & (valeur) & vbTab & (message)
                FtxtBis.Close
                Set FtxtBis = Nothing
                Ftxt.Close
                Set Ftxt = Nothing
        Else
                Set Ftxt = 
 
FSO.CreateTextFile("D:\production\home\tws\log\SYS_LOG_systeme.log", False)
                Set Ftxt = FSO.GetFile("D:\production\home\tws\log\SYS_LOG_systeme.log")
                Set FtxtBis = Ftxt.OpenAsTextStream(8, -2)
                FtxtBis.writeline (Year(date)) & vbTab & (Month(date)) & vbTab & 
 
(Day(date)) & vbTab & (time) & vbTab & (getSystemVar("COMPUTERNAME")) & vbTab & resultat1 
 
& vbTab & resultat2 & vbTab & (PID) & vbTab & (terminal) & vbTab & resultat5 & vbTab & 
 
resultat4 & vbTab & return & vbTab & (gravite) & vbTab & resultat3 & vbTab & 
 
(getSystemVar("UNISON_JOBNUM")) & vbTab & (valeur) & vbTab & (message)
                FtxtBis.Close 'Fermeture
                Set FtxtBis = Nothing
                Ftxt.Close
                Set Ftxt = Nothing
        End If
FSO.Close
 
WSCript.Sleep intSleep
Merci pour votre aide