获取Windows事件日志列表VBA访问

Question

我正在尝试生成设置为触发事件的XML任务。因此，我需要将每个日志的确切格式注入到通用XML模板中。有什么方法可以插入上面突出显示的字段，将它们添加到我的数据库中的表中吗？

Answer 1

经过大量研究后，我能找到的最接近的答案是扫描注册表文件夹中的所有可用日志。

对于我在此之后所在的字段：

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\

从这里开始，我使用循环来获取文件夹名称。虽然为了获得所有结果，我将不得不扫描它们的子文件夹（这是通过更改路径来完成的。如果其他人发现此问题，下面是一段代码片段。

Function test()
Const HKEY_LOCAL_MACHINE = &H80000002
Dim temp As Object
Dim strComputer As String
Dim rPath As String
Dim arrSubKeys()
Dim strAsk

strComputer = "."
Set temp = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

rPath = "SYSTEM\CurrentControlSet\Services\EventLog\Application"
temp.EnumKey HKEY_LOCAL_MACHINE, rPath, arrSubKeys
For Each strAsk In arrSubKeys
    Debug.Print strAsk
Next
End Function