Lotusscript统计在线用户数
使用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统计在线用户数的更多相关文章
- PHP统计当前在线用户数实例
HTML 我们在页面上放置一个显示当前在线人数的div#total以及一个用于展示访客地区分布的列表#onlinelist,默认我们在列表中放置一张与加载动画图片,后面我们用jQuery控制当鼠标滑向 ...
- 基于express+redis高速实现实时在线用户数统计
作者:zhanhailiang 日期:2014-11-09 本文将介绍怎样基于express+redis高速实现实时在线用户数统计. 1. 在github.com上创建项目uv-tj.将其同步到本地: ...
- 关于使用HttpSessionBindingListener获取在线用户数，同一用户登陆一次
原创地址:http://blog.csdn.net/jiaoxueli/article/details/2226134 考虑到项目中统计在线用户数量和同一用户只能登陆一次的需求,查询联系 HttpSe ...
- 使用 Redis 统计在线用户人数
在构建应用的时候, 我们经常需要对用户的一举一动进行记录, 而其中一个比较重要的操作, 就是对在线的用户进行记录. 本文将介绍四种使用 Redis 对在线用户进行记录的方案, 这些方案虽然都可以对在线 ...
- 基于tomcat获取在线用户数
https://blog.csdn.net/smallnetvisitor/article/details/84697505 需求: 统计某应用的在线用户数 实现方案: 1.基于session监听(复 ...
- Tomcat集群下获取memcached缓存对象数量，统计在线用户数据量
项目需要统计在线用户数量,系统部署在集群环境下,使用会话粘贴的方式解决Session问题.要想得到真实在线用户数,必须是所有节点的总和. 这里考虑使用memcached存放用户登录数据,key为use ...
- Python GUI之tkinter窗口视窗教程大集合（看这篇就够了） JAVA日志的前世今生 .NET MVC采用SignalR更新在线用户数 C#多线程编程系列（五）- 使用任务并行库 C#多线程编程系列（三）- 线程同步 C#多线程编程系列（二）- 线程基础 C#多线程编程系列（一）- 简介
Python GUI之tkinter窗口视窗教程大集合(看这篇就够了) 一.前言 由于本篇文章较长,所以下面给出内容目录方便跳转阅读,当然也可以用博客页面最右侧的文章目录导航栏进行跳转查阅. 一.前言 ...
- 在线用户数-Constants
package com.pb.news.constants; public class Constants { public static int ONLINE_USER_COUNT=0;//在线用户 ...
- 类似"音速启动"的原创工具简码"万能助手"在线用户数终于突破100了!
原本只是开发出来方便自己的一个小工具,看到群友也喜欢,就随手分享了, 经过1个多月的自然积累,在线用户数终于突破100了,这增长速度实在让人泪奔~ 博客园的朋友如果看到,喜欢的话就拿去用吧, 万能助手 ...
随机推荐
- 管道命令和xargs的区别
一直弄不懂,管道不就是把前一个命令的结果作为参数给下一个命令吗,那在 | 后面加不加xargs有什么区别NewUserFF 写道:懒蜗牛Gentoo 写道:管道是实现“将前面的标准输出作为后面的标准输 ...
- 【转】各种 NoSQL 的比较
转自 : http://linux.cn/article-2177-1.html 来源:Linux中国 原文:http://linux.cn/article-2177-1.html 即使关系 ...
- textrank的方法，大概懂了
https://www.cnblogs.com/clover-siyecao/p/5726480.html 介绍了textrank. 不过我觉得对于长文本,textrank才有用些.短文本的话,估计没 ...
- 我眼中的SCRUM
回顾一下我所认识的scrum,算是对自己知识的一个梳理. scrum到底是什么,书中都说,它不是方法学,不是过程,而是一个框架.我并没有太理解这句话,所以先把scrum中都有些什么来说一下(可跟前一篇 ...
- [leetcode]Insert Interval @ Python
原题地址:https://oj.leetcode.com/problems/insert-interval/ 题意: Given a set of non-overlapping intervals, ...
- 【Javascript设计模式1】-单例模式
<parctical common lisp>的作者曾说,如果你需要一种模式,那一定是哪里出了问题.他所说的问题是指因为语言的天生缺陷,不得不去寻求和总结一种通用的解决方案. 不管是弱类型 ...
- 用Visual C#来清空回收站(1)
视窗操作系统的回收站是对文件一种保护措施,他主要是作用是不言而喻的.在新的视窗2000系统之中,当我把文件删除到回收站中以后,按动"清空回收站"按钮,想清空回收站,此时往往提示&q ...
- MFC中设备描述表dc的使用
以下代码我是在View类中实现的: /** 利用平台SDK实现画线功能 // 首先获得窗口的设备描述表 HDC hdc; hdc = ::GetDC( m_hWnd ); //调用的是平台SDK的成员 ...
- T 分布（近似标准正态分布）
1.1 定义 定义:假设X服从标准正态分布N(0,1),Y服从卡方分布,那么的分布称为自由度为n的t分布,记为. T分布密度函数其中,Gam(x)为伽马函数. 可用于两组独立计量资料的假设检 ...
- Syntax error missing ; before *
[问题] I have a header file like so: #pragma once #include "gamestate.h" #include "Ex ...