Pomoc pri programovaní, odpovede na otázky / WMI / use wmi získať najnovšie Windows log udalosti - wmi, wmi-query

použite wmi na získanie najnovších udalostí denníka systému Windows - wmi, wmi-query

Chcem používať službu WMI na monitorovanie udalosti systému Windowskaždých 15 minút. Aj keď môžem použiť WQL na vykonanie dotazu, nemá kľúčové slová, ako napríklad poradie podľa. Máte nejaké nápady, ako tento problém obísť?

odpovede:

1 pre odpoveď č. 1

môžete použiť súbor údajov. Nižšie sa vykonáva pomocou vbscript a len na poliach ComputerName, EventCode a Message. Pridajte ďalšie polia podľa potreby

Const adVarChar = 200
Const MaxCharacters = 1024
Const adFldIsNullable = 32
Set DataList = CreateObject("ADOR.Recordset")
DataList.Fields.Append "ComputerName", adVarChar, MaxCharacters,adFldIsNullable
DataList.Fields.Append "EventCode", adVarChar, MaxCharacters,adFldIsNullable
DataList.Fields.Append "Message",adVarChar,MaxCharacters,adFldIsNullable
DataList.Open
strComputer = "."
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")

Set colLoggedEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent Where Logfile = "Application"")
For Each evt in colLoggedEvents
DataList.AddNew
DataList("ComputerName") = evt.ComputerName
DataList("EventCode") = evt.EventCode
DataList("Message") = evt.Message
DataList.Update
Next
"sort by eventcode
DataList..Sort = "EventCode DESC"
DataList.MoveFirst
Do Until DataList.EOF
Wscript.Echo DataList.Fields.Item("ComputerName") & vbTab & DataList.Fields.Item("EventCode") & vbTab & DataList.Fields.Item("Message")
DataList.MoveNext
Loop