22 lines
897 B
Plaintext
22 lines
897 B
Plaintext
' Copyright (c) Microsoft Corporation, All Rights Reserved
|
|
'***************************************************************************
|
|
'
|
|
' WMI Sample Script - Clear event log (VBScript)
|
|
'
|
|
' This script demonstrates how to clear the entries from the System event log file
|
|
' on the local machine from instances of Win32_NTEventLogFile.
|
|
'
|
|
' NOTE: A backup file can be specified to the ClearEventlog() method if a backup of
|
|
' the data is desired before clearing the log.
|
|
'
|
|
' NOTE: This script only applies to NT-based systems since Win9x does support event logs
|
|
'
|
|
'
|
|
'***************************************************************************
|
|
Set LogFileSet = GetObject("winmgmts:{(Backup,Security)}").ExecQuery("select * from Win32_NTEventLogFile where LogfileName='System'")
|
|
|
|
for each Logfile in LogFileSet
|
|
RetVal = LogFile.ClearEventlog()
|
|
if RetVal = 0 then WScript.Echo "Log Cleared"
|
|
next
|