エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
ExcelでWindowsのイベントログを取得したい
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
ExcelでWindowsのイベントログを取得したい
Dim W, C, T, P, N, V, I, X Set W = GetObject("winmgmts:\\.\root\cimv2") Set C = W.ExecQuery("SELE... Dim W, C, T, P, N, V, I, X Set W = GetObject("winmgmts:\\.\root\cimv2") Set C = W.ExecQuery("SELECT * FROM Win32_NTLogEvent" _ & " WHERE Type='エラー'") 'エラーのみ収集 For Each T In C For Each P In T.properties_ N = P.Name V = P.Value X = -1 If P.IsArray Then On Error Resume Next X = UBound(P.Value) On Error GoTo 0 End If If X < 0 Then Debug.Print N; ": "; V Else For I = 0 To X Debug.Print N; "("; CStr(I);