「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

*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()