可以获取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