Example: Removing Password Change Histories from the MIIS Server

The following Visual Basic Scripting Edition (VBScript) example shows how to remove password histories from the server with a date that is earlier than or equal to 2003-03-31 and to clear any outstanding password operations in the password queue. To use the classes in this script, you must be logged on as a member of the MIISAdmins security group.

Option Explicit

On Error Resume Next

Dim Service
Dim ManagementAgent
Dim DeleteDate

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

DeleteDate = "2003-03-31 13:25:00.000"

WScript.Echo "Result: " & Server.ClearPasswordQueue()
WScript.Echo "Result: " & Server.ClearPasswordHistory(DeleteDate)

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