「MSSEユーティリティ」の編集履歴(バックアップ)一覧はこちら
MSSEユーティリティ - (2009/10/22 (木) 07:53:28) の最新版との変更点
追加された行は緑色になります。
削除された行は赤色になります。
*MSSEユーティリティ
#contents()
**イベントログ取得
Microsoft Security Essentialsの実行記録はイベントログに記録されます。それでは、わかりにくいので本ユーティリティで取得します。
現状はMicrosoft Security Essentials関係のログを取得して出力するだけの機能です。将来的には、もう少し見やすくわかりやすくするつもりです。
**ダウンロード
http://www31.atwiki.jp/msse?cmd=upload&act=open&pageid=49&file=getlog.zip
MSSEでウィルスチェックしています。
**ソース
そのうち、ソリューションで提供します。
とりあえずコードだけ。
Sub Main()
Dim file As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\event.txt"
Console.WriteLine("{0} Microsoft Security Essentialsのログを収集します", Date.Now)
Console.WriteLine("{0} {1}に出力します", Date.Now, file)
getEventlog(file)
Console.WriteLine("{0} 収集完了 -> {1}に出力しました", Date.Now, file)
Console.ReadLine()
End Sub
Public Sub getEventlog(ByVal file As String)
Dim log As New EventLog("System")
For Each entry As EventLogEntry In log.Entries
If entry.Source = "Microsoft Antimalware" Then
My.Computer.FileSystem.WriteAllText(file, entry.Message, True)
My.Computer.FileSystem.WriteAllText(file, vbCrLf & "=========" & vbCrLf, True)
End If
Next
End Sub
----
**コメント
#comment()
*MSSEユーティリティ
#contents()
**イベントログ取得
Microsoft Security Essentialsの実行記録はイベントログに記録されます。それでは、わかりにくいので本ユーティリティで取得します。
現状はMicrosoft Security Essentials関係のログを取得して出力するだけの機能です。将来的には、もう少し見やすくわかりやすくするつもりです。
**ダウンロード
http://www31.atwiki.jp/msse?cmd=upload&act=open&pageid=49&file=getlog.zip
MSSEでウィルスチェックしています。
----
**コメント
- PowerShell で充分では? get-eventlog -logname system -source 'microsoft antimalware' -- 名無しさん (2010-03-15 08:44:09)
#comment()
表示オプション
横に並べて表示:
変化行の前後のみ表示: