'////////////////////////////////////////////////////
 '执行 timer.nsf 同步在线人员代理 ywcheng 20161228
 Dim  timer_db As NotesDatabase
 Call fbbasic_IF_getDatebase(errHandle$,timer_db,"timer")
 Dim agentS As NotesAgent
 Set agentS=timer_db.GetAgent("updateOnlineUser")
 If Not(agentS Is Nothing) Then
  'Call agentS.RunOnServer(文档的ID 注意不是UNID)
  Call agentS.Run
  'Msgbox "执行调用ok11 ...."
 End If
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''