Sub ClearDskMgrWindow(doc_user As NotesDocument, dskmgrini_path As String)
Dim db_start As New NotesDatabase ("","")
Dim replica_id As String
Dim dskmgr_dll_path As String
Dim xml_file_path As String
Dim notes_exe_path As String
Dim notes_ini_path As String
Dim is_encrypted As Integer
Dim flag As Integer

' ### Remove all DskMgrStart state windows from Bookmark & XML

' # Get DskMgrStart database replica id
flag = db_start.Open("","DskMgrStart.nsf")
If flag = False Then Exit Sub
replica_id = Ucase$(db_start.ReplicaID)

' # XML File path
xml_file_path = doc_user.NOTES_DataPath(0) + "workspace\.metadata\.plugins\com.ibm.rcp.personality.framework\personalityWindowState\com.ibm.rcp.platform.personality.config.xml"

' # Check for Bookmark.nsf encryption
is_encrypted = dmIsDatabaseEncrypted("bookmark.nsf") 
If is_encrypted = 0 Then
' # Notes.exe / Notes.ini path / DskMgr.dll path
notes_exe_path = GetNotesPath
notes_ini_path = GetNotesIniPath
dskmgr_dll_path = doc_user.DskMgrDLLPath(0)
End If

' # Build DskMgr.ini Line
Call AddFileLine(dskmgrini_path, "ClearDskMgrWindow="""+ replica_id + """(""" + notes_exe_path + """,""" + notes_ini_path + """,""" + dskmgr_dll_path + """,""" + xml_file_path + """)")
End Sub