domino如何获取用户的登录用户、数据获取记录和活动记录

可以获取notes-数据库-状态-用户详细信息中的记录信息。来分析用户的登录、获取、写入等信息。

怎么获取数据库中的用户详细信息

可以用于分析用户的登录、邮件用户的登录情况。

 

 

代码下载地址：

https://www.agecom.com.au/UserActivity

这是外国公司开发一个功能，一个完整的数据库。有版权！！！

原功能会抓取所有记录，数据量非常大，可能会超出64G。我这边加二次开发，只获取个人数据库的个人最后一次访问记录.

下面是遍历活动日志的fun

CLASSUserActivity类库
Function CreateActivityLogDocs(db As NotesDatabase, ua As NotesUserActivity) As Boolean
	' Create the activity log documents for each entry
	Dim ActivityLogsExtendedView As NotesView
	Dim DocCollection As NotesDocumentCollection
	Dim ActivityLogDoc As NotesDocument
	Dim ServerName As NotesName
	Dim uae As NotesUserActivityEntry
	Dim uaeExtended As NotesUserActivityEntryExtended
	Dim DateTimeValue As NotesDateTime
	Dim iCounter As Integer
	Dim IsExtended As Boolean
	
	' Error Handler
	On Error GoTo Error_Handler
	
	' Remove all existing log entries 清理旧的日志
	If ActivityLogsView Is Nothing Then
		Set ActivityLogsView = CurrDb.GetView("(ActivityLogs)")
	End If
	
	If Not ActivityLogsView Is Nothing Then
		Call ActivityLogsView.Refresh
		Set ServerName = New NotesName(db.Server)
		Set DocCollection = ActivityLogsView.GetAllDocumentsByKey(ServerName.Abbreviated & "~" & db.ReplicaID, True)
		If DocCollection.Count > 0 Then
			Call DocCollection.RemoveAll(True)
		End If
	End If

	If ua.IsExtended