Option Explicit
Dim wmiLocator
Dim wmiService
Dim objEnumerator
Dim objInstance

Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set wmiService = wmiLocator.ConnectServer

' イベントログ名のリストを取得
Set objEnumerator = wmiService.InstancesOf("Win32_NTEventlogFile")
For Each objInstance In objEnumerator
  If Not IsEmpty(objInstance.LogfileName) Then
    WScript.Echo objInstance.LogfileName
  End If
Next
Set objEnumerator = Nothing

' イベントログを丸ごと取得
Set objEnumerator = wmiService.ExecQuery("Select * FROM Win32_NTLogEvent")
For Each objInstance In objEnumerator
  If Not IsEmpty(objInstance.TimeGenerated) Then
    WScript.Echo objInstance.Logfile & ":" & _
                 objInstance.TimeGenerated & ":" & _
                 objInstance.Type
  End If
Next
Set objEnumerator = Nothing

' 起動中のプロセスの一覧を取得
Set objEnumerator = wmiService.InstancesOf("Win32_Process")
For Each objInstance In objEnumerator
  If Not IsEmpty(objInstance.ProcessID) Then
    WScript.Echo objInstance.Description & ":" & CStr(objInstance.ProcessID)
  End If
Next
Set objEnumerator = Nothing
WScript.Echo "OK"