Discussion :

[louis.castonguay]

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 :

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
 
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 :

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

1
2
 
("Select * from CIM_Datafile Where Name =

Le path es entrer au complet

Code :

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

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

[SfJ5Rpw8]

Salut un mauvais placement des guillemets

Code :

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

1
2
  Set colFiles = objWMIService.ExecQuery _
        ("Select * from CIM_Datafile Where Name = '" & path & date & ext & "'")

pour de tel cas mieux vaut placer par une variable chaine intermédiaire qui permet de vérifier ta requête ..

Code :

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

1
2
3
4
5
6
7
8
 
Dim stReq
stReq = "Select * from CIM_Datafile Where Name = '" & path & date & ext & "'"
msgbox  stReq
 
Set colFiles = objWMIService.ExecQuery _
        (stReq)
 ...