使用notessession的SendConsoleCommand方法向服务器控制台发送“show inetusers”命令,该命令返回一个结果(字符串),字符串类似如下:

admin   192.168.0.50                    HTTP    20100910T114142,37+08     admin   192.168.0.43                    HTTP    20100910T114345,34+08

用户与用户之间使用回车符Chr(13)分隔,用户的相关信息用Chr(9)字符分隔。

把返回得到的字符串再根据这一规则保存到数组中,即可得到在线用户信息。


 1 Set session = New NotesSession  2 Set cdb = session.CurrentDatabase  3 commandStr$="show inetusers"  4 onlineUsers$ = session.SendConsoleCommand(cdb.Server,commandStr$)  5 onlineUsersArray = Split(onlineUsers$,Chr(13)&Chr(10))  6 usersStr = ""  7 For i =0 To Ubound(onlineUsersArray)  8      If onlineUsersArray(i) <> "" Then  9           If usersStr = "" Then 10                   usersStr = Lcase(Strleft(onlineUsersArray(i),Chr(9))) 11           Else 12                   usersStr = usersStr & ";" & Lcase(Strleft(onlineUsersArray(i),Chr(9))) 13            End If 14        End If 15 Next 16
 
 
附:chr参数对应键盘字符表
NUL[000] DLE[016] SPC[032]   0[048]    @[064]    P[080]    `[096]    p [112] SOH[001] DC1[017]   ! [033]   1[049]    A[065]    Q[081]    a[097]    q [113] STX[002] DC2[018]   " [034]   2[050]    B[066]    R[082]    b[098]    r [114] ETX[003] DC3[019]   # [035]   3[051]    C[067]    S[083]    c[099]    s [115] EOT[004] DC4[020]   $ [036]   4[052]    D[068]    T[084]    d[100]    t [116] ENQ[005] NAK[021]   % [037]   5[053]    E[069]    U[085]    e[101]    u [117] ACK[006] SYN[022]   & [038]   6[054]    F[070]    V[086]    f[102]    v [118] BEL[007] ETB[023]   ' [039]   7[055]    G[071]    W[087]    g[103]    w [119] BS [008] CAN[024]   ( [040]   8[056]    H[072]    X[088]    h[104]    x [120] TAB[009] EM [025]   ) [041]   9[057]    I[073]    Y[089]    i[105]    y [121] LF [010] SUB[026]   * [042]   :[058]    J[074]    Z[090]    j[106]    z [122] VT [011] ESC[027]   + [043]   ;[059]    K[075]    [[091]    k[107]    { [123] FF [012] FS [028]   , [044]   <[060]    L[076]    \[092]    l[108]    | [124] CR [013] GS [029]   - [045]   =[061]    M[077]    ][093]    m[109]    } [125] SO [014] RS [030]   . [046]   >[062]    N[078]    ^[094]    n[110]    ~ [126] SI [015] US [031]   / [047]   ?[063]    O[079]    _[095]    o[111]   DEL[127]

Lotusscript统计在线用户数的更多相关文章

  1. PHP统计当前在线用户数实例

    HTML 我们在页面上放置一个显示当前在线人数的div#total以及一个用于展示访客地区分布的列表#onlinelist,默认我们在列表中放置一张与加载动画图片,后面我们用jQuery控制当鼠标滑向 ...

  2. 基于express+redis高速实现实时在线用户数统计

    作者:zhanhailiang 日期:2014-11-09 本文将介绍怎样基于express+redis高速实现实时在线用户数统计. 1. 在github.com上创建项目uv-tj.将其同步到本地: ...

  3. 关于使用HttpSessionBindingListener获取在线用户数,同一用户登陆一次

    原创地址:http://blog.csdn.net/jiaoxueli/article/details/2226134 考虑到项目中统计在线用户数量和同一用户只能登陆一次的需求,查询联系 HttpSe ...

  4. 使用 Redis 统计在线用户人数

    在构建应用的时候, 我们经常需要对用户的一举一动进行记录, 而其中一个比较重要的操作, 就是对在线的用户进行记录. 本文将介绍四种使用 Redis 对在线用户进行记录的方案, 这些方案虽然都可以对在线 ...

  5. 基于tomcat获取在线用户数

    https://blog.csdn.net/smallnetvisitor/article/details/84697505 需求: 统计某应用的在线用户数 实现方案: 1.基于session监听(复 ...

  6. Tomcat集群下获取memcached缓存对象数量,统计在线用户数据量

    项目需要统计在线用户数量,系统部署在集群环境下,使用会话粘贴的方式解决Session问题.要想得到真实在线用户数,必须是所有节点的总和. 这里考虑使用memcached存放用户登录数据,key为use ...

  7. Python GUI之tkinter窗口视窗教程大集合(看这篇就够了) JAVA日志的前世今生 .NET MVC采用SignalR更新在线用户数 C#多线程编程系列(五)- 使用任务并行库 C#多线程编程系列(三)- 线程同步 C#多线程编程系列(二)- 线程基础 C#多线程编程系列(一)- 简介

    Python GUI之tkinter窗口视窗教程大集合(看这篇就够了) 一.前言 由于本篇文章较长,所以下面给出内容目录方便跳转阅读,当然也可以用博客页面最右侧的文章目录导航栏进行跳转查阅. 一.前言 ...

  8. 在线用户数-Constants

    package com.pb.news.constants; public class Constants { public static int ONLINE_USER_COUNT=0;//在线用户 ...

  9. 类似"音速启动"的原创工具简码"万能助手"在线用户数终于突破100了!

    原本只是开发出来方便自己的一个小工具,看到群友也喜欢,就随手分享了, 经过1个多月的自然积累,在线用户数终于突破100了,这增长速度实在让人泪奔~ 博客园的朋友如果看到,喜欢的话就拿去用吧, 万能助手 ...

随机推荐

  1. whl文件(python)安装方法

    https://blog.csdn.net/fhl812432059/article/details/51745226 windows7 python2.7 1.用管理员方式打开cmd 2.首先通过p ...

  2. [转]php-mobile-detect

    转自:http://www.oschina.net/p/php-mobile-detect php-mobile-detect (Mobile_Detect) 是一个 PHP 类,用来通过 User- ...

  3. Windows10更新后,远程桌面无法登录服务器 提示远程桌面协议 CredSSP 出现漏洞

    Win10远程桌面 出现 身份验证错误,要求的函数不受支持,这可能是由于CredSSP加密Oracle修正 解决方法 打开注册表,手动建立 这个路径 HKEY_LOCAL_MACHINE\SOFTWA ...

  4. Windows Server 2012上安装.NET Framework 3.5(不需要安装光盘)

    因为在windows2012里,安装数据库,IIS部分组件都需要.NET3.5,而默认windows2012安装时,并不会把此组件复制到电脑里 导致,后期要安装.NET3.5还需要安装盘.但是,很多人 ...

  5. JS 判断上传 文件 大小

    随着HTML5 的发展,我们可以用file控件的size属性来获取客户端 上传文件的大小,但是 我今天测试 发现IE10支持,IE11的某个版本不支持, 于是就借用img控件来加载一此, 以此来获取文 ...

  6. 使用Vue.js实现列表选中效果

     实际项目中,我们会遇到很多类似的需求,一个列表,需要点击其中一条高亮显示.熟悉JQuery的同学说这个太简单了.可以给这个选中的element设置一个active的class.配合Css样式,让ac ...

  7. JS中三目运算符和if else的区别,你弄得明白吗

    今天写了一个图片轮播的小demo,用到了判断   先试了一下if else,代码如下:   if(n >= count-1){ n =0; }else{ n ++; } 随后代码写完了,准备优化 ...

  8. js时间戳怎么转成日期格式

    原文地址:http://www.sufeinet.com/thread-1500-1-1.html js时间戳怎么转成日期格式这个在主群里有朋友§☆釺哖蟲...o问js时间戳怎么转成日期格式 ,他的问 ...

  9. AngulerJS学习(五)按需动态载入文件

    在此之前我么年首先要先了解几个东西: $q 简单介绍: $q:主要解决的是异步编程的问题,是指描写叙述通过一个承诺行为与对象代表的异步运行的行动结果的交互.可能会也可能不会再不论什么时候完毕. 我们通 ...

  10. Android -- Volley解析

    Volley设计 Dispatch Thread不断从RequestQueue中取出请求,根据是否已缓存调用Cache或Network这两类数据获取接口之一,从内存缓存或是服务器取得请求的数据,然后交 ...