LS中删除系统用户
来源:互联网 发布:淘宝比较好的眼镜店 编辑:程序博客网 时间:2024/05/16 11:24
Sub Initialize()
On Error GoTo a
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.Currentdatabase
Dim strRegServer As String
Dim strDelUserorg As Variant
'获得当前数据库所在服务的组织名:CN=oaserver/O=v4.2
strRegServer = db.Server
'获得组织中的域名:v4.2
strDelUserorg = Evaluate("@Name([o];@UserName)")
MsgBox "strRegServer:---" & strRegServer
MsgBox "strDelUserorg:---" & strDelUserorg(0)
Dim adminp As NotesAdministrationProcess
Set adminp = session.CreateAdministrationProcess(strRegServer)
Dim userName As Variant
Dim DeleUser As Variant
DeleUser = "ddd"
'拼出服务器域中的用户:ddd/v4.2
userName = CStr(DeleUser+"/" & strDelUserorg(0) )
MsgBox "userName:---" & userName
'在names库中删除指定的用户
Call adminp.DeleteUser(userName, True, MAILFILE_DELETE_ALL,"", False)
Exit Sub
a:
MsgBox "错误在agent_DelUser的第" & Erl & "行:" & Error
End Sub
On Error GoTo a
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.Currentdatabase
Dim strRegServer As String
Dim strDelUserorg As Variant
'获得当前数据库所在服务的组织名:CN=oaserver/O=v4.2
strRegServer = db.Server
'获得组织中的域名:v4.2
strDelUserorg = Evaluate("@Name([o];@UserName)")
MsgBox "strRegServer:---" & strRegServer
MsgBox "strDelUserorg:---" & strDelUserorg(0)
Dim adminp As NotesAdministrationProcess
Set adminp = session.CreateAdministrationProcess(strRegServer)
Dim userName As Variant
Dim DeleUser As Variant
DeleUser = "ddd"
'拼出服务器域中的用户:ddd/v4.2
userName = CStr(DeleUser+"/" & strDelUserorg(0) )
MsgBox "userName:---" & userName
'在names库中删除指定的用户
Call adminp.DeleteUser(userName, True, MAILFILE_DELETE_ALL,"", False)
Exit Sub
a:
MsgBox "错误在agent_DelUser的第" & Erl & "行:" & Error
End Sub
- LS中删除系统用户
- 从Linux系统中删除用户账户:userdel命令
- linux系统中ls命令用法详解
- Linux系统中ls命令用法详解
- Linux系统中关于ls命令详解
- Linux系统中ls命令用法详解
- linux系统中ls命令的用法
- Linux系统中ls命令的使用方法
- SqlServer中删除用户
- linux 为什么删除用户,但是home目录下ls仍可以看到用户?
- 删除系统用户(XP)
- LS函数:在AD中,查询指定用户条目
- 在linux系统中,如何删除创建的用户并同时删除帐户的主目录?
- Linux 系统中 ls 命令用法与显示内容详解
- linux系统中ls命令的用法详解
- cmd中删除oracle用户
- linux中彻底删除用户
- 用SQL语句增加删除系统用户
- ffserver联合ffmpeg建立媒体服务器
- 最常用的性能视图——v$process(1)!
- 一个超级强大的图片加水印的类
- vss 配置
- NSLog的格式
- LS中删除系统用户
- 华为SmartCare专业服务解决方案获Frost amp Sullivan用户感知服务卓越奖
- 谷歌的JQuery库
- 变量延迟(上)
- 通过LS判断服务器目录下的指定数据库是否存在
- Native Client 资料
- derby数据库连接池、资源、安全性(领域)的配置
- 简单的Win Socket实例(回环通信)
- Redis几个认识误区