Table of Contents



Here is a little script for clearing the run history via script and using WMI.

Clear Run History Script


Dim Service
 
Dim ManagementAgent
 
Dim DeleteDate
 
  
 
Set Service = GetObject("winmgmts:\root\MicrosoftIdentityIntegrationServer")
 
Set Server = Service.Get("MIIS_Server.Name='MIIS_Server1'")
 
  
 
'// DeleteDate the date to use for the deletion of runs
 
DeleteDate = GETDELETEDATE( Date() - 1 )
 
WScript.Echo "Deleting Run Histories from " & DeleteDate
 
WScript.Echo "Result: " & Server.ClearRuns(DeleteDate)
 
  
 
  
 
'// ======================================================================
 
'// FUNCTION IIF
 
'// PURPOSE: To be able to execute an If...Then...Else statement on a single line
 
'// -- conditionalString: is the conditional statement to check via the IF
 
'// -- TrueString: if the condition is true, the statement to execute
 
'// -- FalseString: if the condition is false, the statement to execute
 
'// ======================================================================
 
FUNCTION IIF(conditionalString, TrueString, FalseString)
 
  
 
    IF conditionalString THEN
 
        IIF = TrueString
 
    ELSE
 
        IIF = FalseString
 
    END IF
 
  
 
END FUNCTION
 
'// ====================================================================
 
'// FUNCTION GETDELETEDATE
 
'// PURPOSE: The date has to be formatted in a special way to work with the sync engine.
 
'//     using this function to help format the date.
 
'// ====================================================================
 
FUNCTION GETDELETEDATE( TheDeleteDate )
 
     GETDELETEDATE = YEAR(TheDeleteDate) & "-" & IIF(LEN(MONTH(TheDeleteDate))=1,"0" & MONTH(TheDeleteDate), MONTH(TheDeleteDate)) & "-" & IIF(LEN(DAY(TheDeleteDate))=1,"0" & DAY(TheDeleteDate), DAY(TheDeleteDate))
 
 END FUNCTION

SEE ALSO


Current Forefront Identity Manager 2010 Resources
Current Certificate Lifecycle Manager Resources
GalSync Resource Wiki
PCNS-Password Synchronization Wiki
How to clear the run history