Change Name AdminP Reversion Hack

Mindwatering Incorporated

Author: Tripp W Black

Created: 04/20/2023 at 10:04 PM

Category:
Domino Server Issues Troubleshooting
Person Records

Issue:
Name change was issued, but the Notes ID was accidentally overwritten/replaced on the central storage location, and the client. There is no ID Vault.
After re-registering the person, the person doc still has the "Pending" name change.

Note:
This is a workaround. Do not do this lightly, this could break a person doc.

Manual Clean-up:
Locate the name change document and processed response and delete both manually.

Create a temporary agent to do remove the AdminP fields:
- Type: Lotusscript
- Event: Action Menu selection
- Target: All selected documents

Add the following code:
%REM
Agent deleteAdminPFlds
Created Apr 20, 2023 by Tripp Black/Aberdeen/McMurrayFabrics
Description: Comments for Agent
%END REM
Option Public
Option Declare

Sub Initialize
Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument ' current document selected/open
Dim doc As NotesDocument ' current doc backend
Set uiDoc = w.Currentdocument
If (uiDoc Is Nothing) Then
Print "No UIDoc"
Exit Sub
End If

Set doc = uiDoc.Document
If (doc Is Nothing) Then
Print "No Doc"
Exit Sub
End If

Call doc.Removeitem("$AdminpOldWebName")
Call doc.Removeitem("AdminpOldCertificate")
Call doc.Removeitem("AdminpOldFirstName")
Call doc.Removeitem("AdminpOldFullName")
Call doc.Removeitem("AdminpOldInternetAddress")
Call doc.Removeitem("AdminpOldLastName")
Call doc.Removeitem("AdminpOldOwner")
Call doc.Removeitem("AdminpOldShortName")
Call doc.ReplaceItemValue("ChangeRequest", "")
Call doc.Removeitem("ChangeRequestDate")
Call doc.Save(True, False)

End Sub

previous page