Problème variable dans Where Name
Bonjour
Je vais vous décrire le mieux possible mon problème.
J'ai trouvez un script VBScript sur internet pour que lorsqu'un fichier n'est pas modifier depuis quelque temps , cela m'envois une alerte dans l'observateur d'évènement. Jusque ici pas de problème si le chemin es entrer directement ex : C:\logiciel\system... par compte le problème que j'ai c'est que le fichier change de date a tout les jours. Donc je doit passé la date dans le Script Voila le code :
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
|
strComputer = "serveur01"
dim path
dim ext
path = "C:\\logiciel\\system\\SystemLog\\"
ext = ".log"
dateauj = date()
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where Name = '& path & dateauj & ext'")
For Each objFile in colFiles
strOriginalTimestamp = objFile.LastModified
Next
Wscript.Echo "Monitoring application log file: " & Now
Do While True
Wscript.Sleep 8000
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where Name = '& path & date & ext'")
For Each objFile in colFiles
strLatestTimestamp = objFile.LastModified
Next
If strLatestTimestamp <> strOriginalTimestamp Then
strOriginalTimestamp = strLatestTimeStamp
Else
Set WshShell = WScript.CreateObject("WScript.Shell")
strCommand = "eventcreate /T Error /ID 100 /L Application /D " & _
Chr(34) & "LAG Server XXX" & Chr(34)
WshShell.Run strcommand
strOriginalTimestamp = strLatestTimeStamp
End If
Loop |
Donc le script démarre et me fait toujours une erreur dans l'observateur d'évènement comme quoi le fichier n'est pas modifier même si il les. Par compte si dans le
Code:
1
2
|
("Select * from CIM_Datafile Where Name = |
Le path es entrer au complet
Code:
1
2
|
("Select * from CIM_Datafile Where Name = 'C:\\logiciel\\system\\SystemLog\\2009-12-06.log'") |
Cela fonctionne quelqu'un aurais une idée
Merci beaucoup
