Création D'un Log

Version imprimable

Création D'un Log

Bonjour à tous je reviens vers vous pour une nouvelle question,

j'ai un script qui fonctionne très bien. Dans le sens ou il donne la date l'heure et les secondes, et il reviens à la ligne
ce script et pour crée un log de détection de mouvement.

ce que je n'arrive pas à faire c'est qu'il écrivent devant la date et l'heure exemple mouvement détécté le 16/04/2022 19:04:53
et qu'il reviennet à la ligne quand il il y a une autre détéction

merci par avance pour vos réponse

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
Option Explicit
 
Dim objFSO, objTextFile
Dim NomFichier, CheminFichier, CheminScriptActuel, ScriptFileName, Position
 
'Déclaration des constantes
Const ForReading = 1
Const ForWritting = 2
Const ForAppending = 8
 
ScriptFileName = wscript.scriptname
Position = InstrRev(ScriptFileName,".")
if (Position > 0) Then ScriptFileName = Left(ScriptFileName, Position - 1)
 
NomFichier = ScriptFileName & "_Log.txt"
 
CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
CheminFichier = CheminScriptActuel & "\" & NomFichier 'Déclaration du chemin et du nom du fichier
 
If Len(CheminFichier) > 0 Then
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForAppending, True)
	objTextFile.WriteLine(Now) 'On ecrit la date et l'heure dans le fichier
	'*** Ajout de données dans la variable "data".
	objTextFile.Close 'Fermeture du fichier
 
	Set objTextFile = Nothing
	Set objFSO = Nothing
Else
	Wscript.echo "Operation annulee"
End If 'CheminFichier

Les datas doivent venir de quelque part, soit d'un temps à un autre on éxecute quelque propramme, soit on fait le programme d'attente lieu de quelque évenement ... Supposons qu'il vienent d'un array fixe pour une démonstration. Dans ce cas, on peut réécrire le bloc correspondant comme ça.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
dim datasrc, data
datasrc=array("Mariupol resists.", "Investigation on the sunk of Moskva continues.", "Phoenix Ghost is deployed.")
 
If Len(CheminFichier) > 0 Then
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForAppending, True)
Else
    wscript.echo "Operation annulee"
    wscript.quit -1
End If 'CheminFichier
 
'*** Ajout de données dans la variable "data".
for each data in datasrc
    objTextFile.WriteLine(Now) 'On ecrit la date et l'heure dans le fichier
    objTextFile.writeline(data)
    wscript.sleep 1000
next
objTextFile.Close 'Fermeture du fichier
 
Set objTextFile = Nothing
Set objFSO = Nothing

Bonjour à Tous et merci infiniment pour la réponse

J’ai fini par trouvé ce que je voulais faire

Je partage le code avec ceux que cela intéresserai dans l'avenir

Ce code et essentiellement pour crée un log de passage devant un détecteur de mouvement

Ce script fonctionne avec un logiciel de domotique comme jeedom et un détecteur de mouvement

merci à vous tous et longue vie DVP

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
Option Explicit
 
Dim objFSO, objTextFile
Dim NomFichier, CheminFichier, CheminScriptActuel, ScriptFileName, Position
Dim ActualDay, MyDay, MyMonth, varTime
 
'Déclaration des constantes
Const ForReading = 1
Const ForWritting = 2
Const ForAppending = 8
 
MyDay = Day(Now)
MyMonth = Month(Now)
 
If Len(MyDay) = 1 Then MyDay = "0" & MyDay
If Len(MyMonth) = 1 Then MyMonth = "0" & MyMonth
ActualDay = Year(Now) & "-" & MyMonth & "-" & MyDay
 
varTime = Time
varTime = Replace(varTime, ":", "-") 'Remplacement des : par - car : est un caractère interdit dans les noms de fichiers
 
ScriptFileName = wscript.scriptname
Position = InstrRev(ScriptFileName,".")
if (Position > 0) Then ScriptFileName = Left(ScriptFileName, Position - 1)
 
NomFichier = ActualDay & "_" & varTime & "_" & ScriptFileName & "_Dans_Le_Garage.txt"
 
CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
CheminFichier = CheminScriptActuel & "\" & NomFichier 'Déclaration du chemin et du nom du fichier
 
If Len(CheminFichier) > 0 Then
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForAppending, True)
	objTextFile.WriteLine(Now) 'On ecrit la date et l'heure dans le fichier
	objTextFile.Close 'Fermeture du fichier
 
	Set objTextFile = Nothing
	Set objFSO = Nothing
Else
	Wscript.echo "Operation annulee"
End If 'CheminFichier