关闭

LotusScript获得在线用户

497人阅读 评论(0) 收藏 举报

作者: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

 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:30973次
    • 积分:450
    • 等级:
    • 排名:千里之外
    • 原创:10篇
    • 转载:11篇
    • 译文:0篇
    • 评论:3条
    文章分类
    最新评论