使用wmi获取最新的Windows日志事件

#0

you can use a dataset. Below is done using vbscript, and only on the fields ComputerName,EventCode and Message. Add the other fields as desired

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 & "\root\cimv2")

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

推荐文章

通过第二个侦听器连接时,无法建立连接描述符中给定的SID

通过第二个侦听器连接时,无法建立连接描述符中给定的SID

推荐文章

如何为创建自定义Html.control?

如何为创建自定义Html.control?

推荐文章

阻止jQuery通过.clone()创建重复克隆

阻止jQuery通过.clone()创建重复克隆

推荐文章

在SQL Server中查找3项关联规则

在SQL Server中查找3项关联规则

推荐文章

CRM 2011 OrganizationServiceProxy与OrganizationServiceContext

CRM 2011 OrganizationServiceProxy与OrganizationServiceContext

推荐文章

Grails域类id

Grails域类id

推荐文章

新创建的内容类型未显示

新创建的内容类型未显示

推荐文章

我可以将大型XML文件序列化为二进制格式,并且仍然能够使用XPath吗?

我可以将大型XML文件序列化为二进制格式,并且仍然能够使用XPath吗?

推荐文章

卡在法迪托

卡在法迪托

推荐文章

如何定义Rail3中以点开头的名称的本地化?

如何定义Rail3中以点开头的名称的本地化?

推荐文章

SQL Server可空列

SQL Server可空列

推荐文章

爬行youtube类别的简单url格式?

爬行youtube类别的简单url格式?

推荐文章

无显式指针的C++多态调用

无显式指针的C++多态调用

推荐文章

用不同的行布局填充单个列表视图

用不同的行布局填充单个列表视图

推荐文章

十进制格式(C)#

十进制格式(C)#

推荐文章

启用Amazon S3 bucket版本控制

启用Amazon S3 bucket版本控制