我用 WMI 做了一些测试,当我得到一小部分结果时,结果证明这是一个足够好的解决方案。
Dim oMag As New Management.ManagementObjectSearcher("SELECT User, Type,TimeGenerated,Message FROM Win32_NTLogEvent WHERE LogFile = 'Application' AND SourceName = 'Journalisation' AND TimeGenerated >= '20121031180000.000000-000' AND TimeGenerated <= '20121031181500.000000-000'")
Dim oMagColl As Management.ManagementObjectCollection = oMag.Get
For Each oMagObj As Management.ManagementObject In oMagColl
Msgbox(oMagObj("User") & vbTab & oMagObj("Type") & vbTab & oMagObj("TimeGenerated") & vbTab & oMagObj("Message"))
Next
只是觉得我觉得奇怪的是日期时间格式。此外,有时感觉整个事情都需要很长时间,没有明显的原因。
无论如何,我认为这是一个很好的解决方案。