No.1ベストアンサー
- 回答日時:
環境が書いてませんが,VB.NETなら,
http://dobon.net/vb/dotnet/system/geteventlogs.h …
これを参考に...
Dim DT As DataTable = New DataTable
DT.Columns.Add("Log", GetType(String))
DT.Columns.Add("EntryDate", GetType(String))
DT.Columns.Add("Entry", GetType(String))
Dim logs() As System.Diagnostics.EventLog
logs = System.Diagnostics.EventLog.GetEventLogs()
Dim log As System.Diagnostics.EventLog
For Each log In logs
Dim entry As System.Diagnostics.EventLogEntry
For Each entry In log.Entries
Dim row As DataRow = DT.NewRow()
row("Log") = log.Log
row("EntryDate") = entry.TimeWritten.ToString("yyyyMMddhhmmss")
row("Entry") = entry.Message
DT.Rows.Add(row)
Next
Next
Dim sorted_dt() As DataRow = DT.Select("", "EntryDate")
For Each r As DataRow In sorted_dt
Trace.WriteLine(CType(r("Log"), String) + ":" + CType(r("EntryDate"), String) + ":" + CType(r("Entry"), String))
Next
ご教授有難うございます。教えて頂いたのを試したのですが、やはり古い順に取得してしまいました。
以下に使用したソースを載せます。何か間違いがあればご指摘お願いします。
Public Shared Sub Main()
Dim DT As DataTable = New DataTable
DT.Columns.Add("Log", GetType(String))
DT.Columns.Add("EntryDate", GetType(String))
DT.Columns.Add("Entry", GetType(String))
Dim logs() As System.Diagnostics.EventLog
logs = System.Diagnostics.EventLog.GetEventLogs()
Dim log As System.Diagnostics.EventLog
For Each log In logs
Dim entry As System.Diagnostics.EventLogEntry
For Each entry In log.Entries
Dim row As DataRow = DT.NewRow()
row("Log") = log.Log
row("EntryDate") = entry.TimeWritten.ToString("yyyyMMddhhmmss")
row("Entry") = entry.Message
DT.Rows.Add(row)
Next
Next
Dim sorted_dt() As DataRow = DT.Select("", "EntryDate")
For Each r As DataRow In sorted_dt
Trace.WriteLine(CType(r("Log"), String) + ":" + CType(r("EntryDate"), String) + ":" + CType(r("Entry"), String))
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 不動産鑑定士・土地家屋調査士 合筆された地積測量図の取得(登記情報提供サービス) 1 2022/07/13 00:30
- PHP バージョン情報の取得方法について 1 2023/03/15 11:56
- その他(プログラミング・Web制作) バッチファイルでPCのモデル名を取得したい 1 2022/03/31 10:58
- Visual Basic(VBA) エクセルVBA 2 2022/04/27 13:29
- HTML・CSS 別サイトのHTML内にある情報を自動取得して、自分のサイトに組込む方法を教えてください。 例えば、Y 1 2023/06/15 08:09
- ポイントサービス・マイル E-TAXについて 2 2023/02/12 16:18
- SoftBank(ソフトバンク) プリペイド携帯の電話番号変更について 2 2022/12/05 13:20
- 確定申告 確定申告自体が初めてのE-TAXについて 4 2023/02/12 19:32
- 大学受験 高校1年のものです。自分は将来、教員になることを目標としています。前までは社会の教員として働きたいと 2 2022/08/06 09:08
- その他(コンピューター・テクノロジー) batファイルでPCの設定内容やプロパティーを取得したいのですが、コマンド1個で1ファイルとなるのを 2 2022/04/27 15:27
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Yahoo! JAPAN IDを新規取得でき...
-
「取得先」という表現について
-
VB or VBScriptでPCの製造番号...
-
Webページのテキスト文字を取得...
-
位置センサー動作履歴
-
実行中の他のアプリのパスの取...
-
【VBA】EXCELブックを開かずに...
-
RSS URL 取得 判定
-
自分の掲示板にアクセス解析を...
-
VBS「開いているページ」のURL...
-
アクセスの度にIPアドレスを変...
-
各クライアントマシンのログイ...
-
IPアドレスとMACアドレスを取得...
-
アンカーテキストの取得は可能...
-
バッチファイルでPCのモデル名...
-
C#で特定LANアダプタの状態を取...
-
PHPを使って、別サイトの一部を...
-
ログイン処理を自動で行い、目...
-
表示している画面サイズの取得方法
-
Dosブロンプトでtabを出力したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「取得先」という表現について
-
Yahoo! JAPAN IDを新規取得でき...
-
ps3で久しぶりにCDの音楽情報取...
-
DMMの動画を全件取得したのです...
-
自分の掲示板にアクセス解析を...
-
IEを使わないでhtmlテキストを...
-
IPアドレスとMACアドレスを取得...
-
ミュージックのアートワークを...
-
【VBA】EXCELブックを開かずに...
-
format関数について
-
ローカルのコンピュータ名を取...
-
不正競争防止法に該当するので...
-
【C#】FindWindowExの使い方を...
-
アクセスの度にIPアドレスを変...
-
EXCEL、マクロ-改ページ行番号...
-
Excel VBA:特定の文字列以降(...
-
VBAでPDFのアクティブページ番...
-
VB2005でXMLデータから複数ある...
-
VBAでPDFファイルの文書のプロ...
-
VBS「開いているページ」のURL...
おすすめ情報