page316.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 11 行

'list event logs 
Dim objWMIObjects, objWMIObject

Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}")
Set objWMIObjects = objService.InstancesOf("Win32_NTEventLogFile")

'loop through and list all available event logs
For Each objWMIObject In objWMIObjects
    WScript.Echo objWMIObject.LogFileName
Next