Trouver une valeur dans un tableau
Bonjour a tous !
Voilà je suis débutante en VBS et je cherche comment chercher une valeur dans un tableau ... si il trouve on affiche 1 sinon zéro ...
Mon exemple: je dois chercher dans l'observateur d'évenement si une erreur existe ...
Pour ne pas afficher a chaque fois 0 ou 1 (sinon on en fini plus), j'ai mis ses valeurs dans un tableau et je veux que si il trouve un 1 dans le tableau ça lui dit qu'il a trouver ... (j'espere que vous avez tous compris mon français xD):mouarf:
Voilà mon 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
|
Set objWMIServices = GetObject _
("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objWMIObjectSet = objWMIServices.ExecQuery _
("Select * from Win32_NTLogEvent Where LogFile='Application'")
dim tablo(20)
source_choisie="Microsoft-Windows-Folder Redirection"
erreur_choisie=510
i=1
For Each objWMIObject In objWMIObjectSet
lasource = objWMIObject.SourceName
lerreur = objWMIObject.EventCode
If (erreur_choisie = lerreur) and (source_choisie = lasource) Then
tablo(i)="1"
Else
tablo(i)="0"
End if
wscript.echo tablo(i)
i=i+1
Next |
Merci d'avance pour votre aide :ccool: