Cetin Abi Selam,
Verdigin ornek icin tesekkur ederim. Aradigimin yarisi
TimeGenerated >= '"+DTOC(DATE()-1,1)+"'") bu idi
Ama simdi benim asil sorunum su. Ben her tarama yaptigimda o tarihi bir dbf e yazacam. Diyelim ki benim dbf adi elogs.dbf. degiskende xtarih olsun.
o zaman kod asagidaki gibi olacak
colitems = oWBEM.ExecQuery("Select * from Win32_NTLogEvent Where Logfile <> 'Security' and EventType = 1 and TimeGenerated > '"+DTOC(elogs.xdate,1)+"'")
yani bana sadece error eventlerini getir ve son aramadan sonraki kayitlari goreyim. Bu sekilde yaparsam hiz akzanmis olacam. Bir once baktiklarima bir daha bakip zaman kaybetmis olmam.
Buraya kadar yaptim calisiyor. Gayet guzel. Pekiiiiiiiiiiii ya o onceki tarih ile tarama yapilan tarih arasinda herhangi bir error event yok ise?
Iste Cetin abi benim problem burada basliyor. Program ole xxxxx falan filan bir hata verip kesip atiyor. Bu hata da
For Each objEvent In colitems
ustteki satirda oluyor. Programda hakli bakacak bir kayit yokki FOR dongusune girsin. Benim yapmak istedigim bu for dongusunden once bir kontrol koymak ve eger herhangi birsey bulundu ise donguye girmesini saglamak. hani bu benim problemimi cozer diye dusunuyorum.
colitems.COUNT diye bisi vardi. bunu kullanincada ayni sey oluyor. Bu sefer bu satirda o hatayi veriyor. Yani kisacasi eger yaptigimiz Select sorgulamasi sonucu birsey bulundu ise tamam ama bulunamadi ise hata aliyorum. bunu COLITEMS a bulasmadan kontrol etmenin yada bu problemi bir sekilde asmanin bir yolu varmidir ?
Klasik ama cok dogru - Bilgi Paylastikca Cogalir ve Degerlenir !