LotusScript获得在线用户

转载 2007年09月17日 14:07:00

作者:xqdak

原帖地址:http://blog.csdn.net/xqdak/archive/2006/02/23/606730.aspx

利用notessession的SendConsoleCommand方法向服务器控制台发送“show inetusers”命令,并返回一个结果(字符窜),用户与用户之间是回车换行符分隔,用户的相关信息用Chr(9)字符窜分隔。把返回得到的字符窜再根据这一规则,即可取得所要的内容。

 Set session = New NotesSession
 Set cdb = session.CurrentDatabase  
commandStr$="show inetusers"
 onlineUsers$ = session.SendConsoleCommand(cdb.Server,commandStr$)
 onlineUsersArray = Split(onlineUsers$,Chr(13)&Chr(10))
 usersStr = ""
 For i =0 To Ubound(onlineUsersArray)
      If onlineUsersArray(i) <> "" Then
           If usersStr = "" Then
                  usersStr = Lcase(Strleft(onlineUsersArray(i),Chr(9)))
           Else
                  usersStr = usersStr & ";" & Lcase(Strleft(onlineUsersArray(i),Chr(9)))
           End If
       End If
 Next

 

相关文章推荐

让你的 Nginx 的 RTMP 直播具有统计某频道在线观看用户数量的功能

你的 Nginx 已经有了 RTMP 直播功能的话,如果你还想统计某直播频道当前观看用户量的话,可以加入 with-http_xslt_module 模块。具体步骤如下:         1.查看原来...
  • defonds
  • defonds
  • 2013年06月09日 16:10
  • 11275

Aspx实现在线用户管理

思路:        1、在服务端定义一个单实例用户列表类,用于维护在线用户;        2、用户登录时添加到用户列表,正常注销,退出系统时从用户列表中删除;        3、如何处理直接...

jsp实现在线用户列表显示

在登陆后显示还有哪些用户在线,用一个列表显示出来,算是完善了之前写的代码的一个小功能吧,以后还会继续。一个是在LoginCheck的servlet里面,把登陆成功的用户用List的形式存进applic...

【在线研讨】《敏捷开发用户故事分类与组织结构(三期-1)》

一期:活动描述,之一,之二,之三,之四,之五二期:活动描述,之一,之二,之三,之四,之五,之六三期:活动描述,之一,之二,之三,之四,之五之一:关于统一过程UP的讨论陈勇-创业-北京(**910753...

从用户体验的角度来分析一些在线图片、幻灯片处理产品

1.交互设计1.1 关于[280slides](280幻灯片)今天看到这个一个产品叫280slides,大体上了解了一下,这是一款在线ppt制作软件,并且只要你注册完之后,你就可以免费的使用这款产品替...
  • lxp1021
  • lxp1021
  • 2011年03月02日 15:31
  • 933

在线用户和访问记录管理项目(需求部分)

涉及到的技术有:j2se,html,css,js,jq,ajax,jsp,serlvet,listener,mysql等技术 开始项目之前需要准备好的东西: Visitor数据库 1.用...

大规模IM在线用户的计算和数据存储方案

大规模IM在线用户的计算和数据存储方案

JavaWeb-Servlet技术的监听器-解析与实例-网站在线用户信息与网页点击量

转载请注明出处: http://blog.csdn.net/qq_26525215 本文源自【大学之旅_谙忆的博客】 在Web项目中,我们对下面这几个监听器必须熟练的使用,它们的作用真的很大。熟练的使...

Remoting异步回调,向在线用户广播消息

本文目的:向Remoting在线客户端广播消息。 使用的主要技术:异步,回调,广播。   实现过程: 定义远程实例: using System; using System.Collecti...
  • ggw128
  • ggw128
  • 2011年11月06日 10:26
  • 2210
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:LotusScript获得在线用户
举报原因:
原因补充:

(最多只允许输入30个字)