Share via


How to: Automatically Clear the Operations Log

The following script deletes information from the operation log up to the specified DeleteDate.

Option Explicit

On Error Resume Next

Dim Service
Dim Server
Dim DeleteDate
Dim When

Set Service = GetObject("winmgmts:\root\MicrosoftIdentityIntegrationServer")
Set Server = Service.Get("MIIS_Server.Name='TEST'")

When = DateAdd("m", -1, Now)

DeleteDate = DatePart ("yyyy", When) & "-" & DatePart("m", when) & "-" & DatePart("d", when)

WScript.Echo "Deleting Run Histories from " & DeleteDate

WScript.Echo "Result: " & Server.ClearRuns(DeleteDate)

Sub ErrorHandler (ErrorMessage)
  WScript.Echo ErrorMessage
  WScript.Quit(1)
End Sub

See Also

Concepts

Script Examples
Creating Scripts