Microsoft Identity Integration Server 2003 Developer Reference

Example: Removing Password Change Histories from the MIIS Server

The MIIS_Server class provides methods that allow you to remove old password 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
End Sub