Discussion :

[vinczente]

Bonjour,

Je souhaiterais faire un script vbs en utilisant wmi qui me permet de récupérer les erreurs du journal d'évenement. Je voudrais simplement afficher les messages d'erreur de la journée d'avant. (J-1)
Donc, si on est le 28 juillet, je veux récupérer les messages a partir du 27 a 00h.
Voici ma requête :

Code :

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

1
2
 
 objWMI.ExecQuery("Select * from Win32_NTLogEvent Where EventType='1' and (LogFile='Application' Or LogFile='system') and TimeGenerated > '20070729000000.000000+00'",,48)

Le problème c'est que je n'ai aucune idée de comment générer une telle date sachant que certaines jours posent problème, notamment le 1 de chaque moi !

De plus si je la génère par concaténation de chaine

Code :

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

1
2
 
YEAR(DateAdd("d", -1, date)) & Month(DateAdd("d", -1, date)) & Day(DateAdd("d", -1, date)) & "000000.000000+00"

pour le moi de juillet j'attends 07 et non pas 7

Merci beaucoup pour votre aide.

Vincent

[ced600]

Regarde ici : http://msdn2.microsoft.com/en-us/library/aa394590.aspx

Pour les jours qui posent problèmes faut les gérer à la main.
Un peu d'aide :

1) Tu peux te faire une collection de mois à 31 jours une autre à 30 et une dernière avec juste le mois de février.

2) Tu connais le mois actuel, le jour actuel, donc avec un simple if tu peut gérer le 1 du mois actuel, et donc le jour précédent c'est le 31 ou le 30 ou le 28 en fonction du mois précédent le mois actuel (tu peut faire un tableau ordonné contenant tous les mois pour connaître le précédent du mois courant). Quand tu as le nom du mois tu peux dire s'il appartient à un mois à 30 jour ou un mois à 31 jour (ou à 28).

3) N'oublie pas de gérer les années bisextiles.

[AlainTech]

En soustrayant un jour au premier du mois, on tombe forcément sur le dernier jour du mois précédent.

VB(S) peut très bien faire ça tout seul, pas besoin de s'embêter avec la gestion des années bissextiles.

[ced600]

Autant pour moi, si vbs c'est le faier tout seul, pas besoin de s'embeter.
Je crois que j'ai tendance à vouloir réinventer la roue