[アプリケーションログを削除する]

アプリケーションログを削除します。
その他のログは、Application の部分を Security, System に変更すれば削除できます。

【ソースコード】

[tips0197.vbs]
Option Explicit
On Error Resume Next

Dim strQuery        ' ログ取得ＳＱＬ文
Dim strLogName      ' ログ種類
Dim objLogFileList  ' ログファイル一覧
Dim objLogFileInfo  ' ログファイル情報

strLogName = "Application"
strQuery = "SELECT * FROM Win32_NTEventLogFile" & _
            " WHERE logfilename = '" & strLogName & "'"
Set objLogFileList = GetObject("winmgmts:{(Backup,Security)}").ExecQuery(strQuery)
For Each objLogFileInfo In objLogFileList
    objLogFileInfo.ClearEventLog
    If Err.Number = 0 Then
        WScript.Echo "ログを消去しました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Next

Set objLogFileList = Nothing

【実行結果】

C:\> cscript //NoLogo tips0197.vbs
ログを消去しました。