Example: Automatically Clearing 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

Send comments about this topic to Microsoft

Build date: 2/16/2009