Liste & Pointeur !

Version imprimable

27/05/2009, 16h59
zz2f3

Liste & Pointeur !
Bonjour,

Je travaille actuellement sur un script vb touchant à du WMI.
j'ai une requête du type :

Code:

Set SystemItems = objWMISystem.ExecQuery("SELECT * FROM Win32_NTLogEvent where Logfile='System' ", "WQL", &h10, &h20)

Pour parcourir cette liste de résultat, j'utilise :
Code:

1 2 3 For Each objItem In SystemItems ...blablabla... Next
Mais ce que j'aimerais faire, c'est parcourir la liste jusqu'à un certain point avec une condition (ce que je fais avec un if dans la boucle et un "Exit For" dans le if) faire différents traitements et ensuite revenir AU MEME point que je m'étais arrété de la liste !!
Mais avec le For Each, je ne peux pas le faire...

N'y a-t-il pas un autre moyen ?

J'aurais bien vu un truc du style :
Code:

1 2 3 4 While condition non atteinte SystemItems.GetItem.Next (avec une fonction qui existe...:?) Loop
Comme ceci, lorsque je veux repartir sur ma liste, j'aurais gardé une sorte de pointeur sur l'élément courant !

Une idée ???
27/05/2009, 17h57
spantemonium

Avec Do While ca devrait bien marcher nan ?

une petite variable qui passe de 0 à 1 dès que condition atteinte
et une petite variable pour rappeler ou le script en était (si nécessaire)
28/05/2009, 09h05
zz2f3

Ben oui c'est ce que je voudrais faire !!
Mais comment récupérer les éléments pointés par "SystemItems" (résultats de la requête) sans passer par ce fameux "for each...in..." ???

C'est ça que j'aimerais arriver à faire !
28/05/2009, 09h34
ced600

un truc du genre :

Code:

SystemItems(i)

ou

Code:

SystemItems.items(i)

Je crois que c'est le deuxième mais j'ai un doute.
28/05/2009, 10h03
zz2f3

A priori ça ne marche pas...

J'ai essayé :
SystemItems(i)
SystemItems.items(i)
SystemItems.GetItems(i)
SystemItems.Obj(i)
SystemItems.Object(i)
SystemItems.GetObj(i)
SystemItems.GetObject(i)

(tout ça du style : WScript.Echo SystemItems(i).EventCode car quand j'utilise la requête avec le for each objItem..., je me sers du WScript.Echo objItem.EventCode)

...
D'autres suggestions ? (ou alors un exemple de code avec le SystemItems.Items(i) qui marche...)

Merci par avance pour votre aide !
28/05/2009, 11h33
pitchalov
Citation:

Envoyé par zz2f3

Mais ce que j'aimerais faire, c'est parcourir la liste jusqu'à un certain point avec une condition (ce que je fais avec un if dans la boucle et un "Exit For" dans le if) faire différents traitements et ensuite revenir AU MEME point que je m'étais arrété de la liste !!
Mais avec le For Each, je ne peux pas le faire...

N'y a-t-il pas un autre moyen ?

Es-tu sûr qu'il est nécessaire de sortir de ta boucle For pour faire tes traitements?
Car sinon tu mets ton traitement dans une fonction, histoire de pas charger ton For, et ça passe à l'élément suivant après ton traitement.
Genre :
Code:

1 2 3 4 For Each objItem In SystemItems If condition Then Traitement(objItem) Next
Ou alors, une autre possibilité, je sais pas si c'est possible en fonction ce que tu veux faire, ce serait de stocker tous tes objItem dans un tableau (ou un vecteur) dans ta boucle For, et après d'effectuer tes traitements en gérant à ta sauce le tableau.

C'est une bonne idée...
Mais je ne pense pas que ce soit possible dans ma situation... (j'ai deux boucles For imbriquées et évidemment c'est sur la 2ème que le problème se pose !)

En gros, l'algo de mon script est le suivant :
Code:

1 2 3 4 5 6 7 8 9 Pour tous les résultats de la requete (lister tous les éléments du journal des évènements "System") faire : Switch case suivant l'EventCode des résultats Cas 1 : blablabla Cas 2 : blablabla Cas autre : je fais une requete (lister les éléments du journal des évènements "Security") je compare la date de chacun de ces évènements pour retrouver l'évènement juste après la date de celui du journal "System" j'effectue des opérations fin pour
Le truc c'est que vu que le résultats des requetes sont triés par date, il est inutile de repartir à chaque fois du début dans le "Cas autre" vu que la date de tous ceux que j'aurais déjà traité pour un objet "System" antérieur est forcément avant celle que je recherche !

Donc si il y a un moyen quelconque de changer la structure de l'algo ou d'avoir un code me permettant d'accéder à un élément (sans passer par le for each) ce serait cool !!

Sinon la solution du tableau peut être envisagée... mais le résultat de la requête à stocker possède plus de 100 000 éléments !!! Ca va faire un énorme tableau pour rien je pense...

28/05/2009, 11h59
ced600

Pourquoi ne pas stocker la date du dernier élément, et mettre une condition pour ne faire les traitements qu'à partir de cette date ?

Mais si tu repars du début avec la condition tu devrais passer très rapidement les premiers éléments.
28/05/2009, 12h36
zz2f3

Je ne sais pas c'est c'est ce que tu as voulu me dire mais tu m'as donné une excellente idée !!!!
(je réduis le temps considérablement !)

Du coup, je mets la condition dans la requete sur le journal "Security" (pour ma 2eme boucle for)

MERCI BEAUCOUP !!!!

A titre indicatif pour que ça marche, il faut faire :

Code:

req = "SELECT * FROM Win32_NTLogEvent where Logfile='System' and TimeWritten > ' " + TPS_VOULU + "'"

Et ensuite ma boucle For Each.... (qui du coup commence là où je veux !!!)

MERCI !!
28/05/2009, 13h18
ced600

C'est presque ce que j'avais voulus dire.
Je parlais d'une condition dans la boucle, mais c'est vrai que la mettre dans la requête c'est mieux. Cela réduit tout simplement ta liste.

Il y a un truc que je ne comprends pas...
Comment expliquez vous ceci :

Lorsque je "scanne" tous les résultats et que je cherche un élément :
Code:

1 2 3 4 5 6 7 "SELECT * FROM Win32_NTLogEvent where Logfile='System'" For Each objItem In SystemItems if objItem.TimeWritten < (une certaine date) blablabla... exit for end if Next
l'objItem qui "rentre" dans le IF est différent de celui du code ci-dessous :
Code:

1 2 3 4 5 6 7 "SELECT * FROM Win32_NTLogEvent where Logfile='System' where TimeWritten<=(une certaine date)" For Each objItem In SystemItems if objItem.TimeWritten < (une certaine date) blablabla... exit for end if Next
:cfou:
Je comprends pas... Une idée ? (par ce que du coup, vu que je n'ai pas le même résultat, mon problème reste entier... je ne peux pas utiliser de where pour accélérer ma requête !)
Ca voudrait dire que le résultat n'est pas classé dans le même ordre non ? Mais alors comment faire !!

29/05/2009, 13h48
pitchalov

Es-tu sûr de ta requête SQL ?

Code:

"SELECT * FROM Win32_NTLogEvent where Logfile='System' where TimeWritten<=(une certaine date)"

Elle me paraît bizarre avec ces 2 where...

Essaie avec ça :

Code:

"SELECT * FROM Win32_NTLogEvent where Logfile='System' and TimeWritten<=(une certaine date)"

Après je m'y connais pas plus que ça en requêtes, alors si ce que j'ai dit est faux, ne pas prendre en compte
29/05/2009, 14h20
zz2f3

Non tu as raison....
Mais j'ai juste mal recopié dans mon poste (dans mon code c'est bien un "and").

J'ai fait mes petites recherches et en faite ce n'est pas une requête SQL mais WQL (W pour WMI) et il n'y a pas de possibilité de faire de "ORDER BY TimeWritten DESC" comme en sql...

De plus j'ai fait affiché le résultat des 2 requêtes et c'est bien ce que je disais, les résultats ne sont pas triés de la même façon.... Du coup cette solution tombe à l'eau (sauf si il existe une sorte d'équivalent à ce "Order By" en WMI...

Le problème reste donc toujours entier ! :(
08/06/2009, 10h16
ced600

Il y a une chose que je n'ai pas bien compris :
Est ce que dans ta boucle tu mets une condition sur la date pour ne pas gérer les éléments qui n'ont pas la date désirée ?
Si oui, malgrès cette condition, la gestion est longue ?
Si non, essaye avec une telle condition.

Code:

"SELECT * FROM Win32_NTLogEvent where Logfile='System' where TimeWritten<=(une certaine date)"

Pour cette requête, ta liste est bien plus petite que l'autre ?

Sinon une solution du genre :

Code:

"SELECT * FROM Win32_NTLogEvent where Logfile='System' where TimeWritten=(une certaine date)"

Avec plusieurs requêtes pour les différentes à traiter, le tout placer dans un dictionnaire. Est ce que cela pourraît convenir ?

Bref ordonner toi même et ensuite parcourir.
09/06/2009, 10h35
zz2f3

Le problème c'est que lorsque je fait la requete sans condition de date, le résultat est trié par ordre chronologique décroissant (comme le journal des évènements et c'est ce que je veux).

Lorsque je rajoute la condition sur la date (pour n'avoir que "la fin" du journal), le résultat n'est pas trié !!! (j'ai fait le test des deux requêtes en affichant tous les résultats et j'ai vu que dans le 2ème cas, le résultat n'était pas trié comme le 1er cas...)

Donc j'ai essayé en rajoutant une clause du type "order by desc" mais bien évidemment, ce n'est pas su SQL (mais du WQL W pour WMI) et il n'y a pas d'option order by...

En gros j'ai au départ une liste de 70000 évènements (environ) que je parcours du premier jusqu'à une certaine date. Lorsque j'ai trouvé celui que je cherchais, je sors de la boucle et je fais d'autre traitements.
Sauf que des fois (pour mon programme), je suis obligé de revenir sur cette liste. Je sais FORCEMENT que l'évènement que je cherche sera après (dans le tableau) celui que j'ai trouvé.
Donc je voulais n'avoir que les éléments APRES celui que j'ai trouvé (pour éviter de me retaper toute la liste du début...)

Voilà en gros mon problème...
09/06/2009, 10h44
ced600

Citation:

Donc je voulais n'avoir que les éléments APRES celui que j'ai trouvé (pour éviter de me retaper toute la liste du début...)

Après avoir trouvé ton élément, tu peut finir ton parcours de boucle et stocker le reste des éléments dans un tableau/dictionnaire pour avoir en stock une liste plus petite.
Tu perds du temps la première fois mais les autres fois c'est plus rapide.

Cela marche bien si tu n'as pas besoin de rafraichir ta liste d'événement, si tu n'as pas besoin d'avoir les nouveaux.

Si tu as besoins de prendre en compte les nouveaux éléments tu n'as pas d'autre choix que de faire une nouvelle requête.

Sinon Win32_NTLogEvent ne possède pas un id ?
Peut être qu'avec une requête genre id >= id_élément_trouvé cela pourrait faire ce que tu souhaites ?