hmailserver批量添加用户

简介: hmailserver批量添加用户1. 把以下代码保存到 文本文件 batadduser.vbsOption Explicit On Error Resume Next wscript.

hmailserver批量添加用户

1. 把以下代码保存到 文本文件 batadduser.vbs


Option Explicit
 On Error Resume Next
  wscript.echo  "start ..."
 Dim obBaseApp
 Dim objFSO
 Dim objTextFile
 Dim strNewAlias,i
 Dim scrreport
 Dim failed
 Dim added
 failed=0
 added=0
 i=0
 Const ForReading=1
 Set obBaseApp=CreateObject("hMailServer.Application")
 Call obBaseApp.Authenticate("Administrator","password") 
 Set objFSO=CreateObject("Scripting.FileSystemObject")
 Set objTextFile=objFSO.OpenTextFile("users.txt",ForReading)   
 Do While objTextFile.AtEndOfStream<>True
   strNewAlias=split(objTextFile.Readline,",")
   Select Case strNewAlias(0)
     Case "User"
	AddUser strNewAlias(1),strNewAlias(2),strNewAlias(3)
     Case "Alias"
	AddAlias strNewAlias(1),strNewAlias(2),strNewAlias(3)
     Case "Delete"
	DelUser strNewAlias(1),strNewAlias(2)
   End Select
  If err.Number<>0 Then  
    scrreport=scrreport&"Failed add(probably duplicate):"&strNewAlias(0)&","&strNewAlias(1)&","&strNewAlias(2)&","&strNewAlias(3)&VBNewLine
    failed=failed+1
    err.Clear
  Else
   added=added+1
  End If
  i=i+1
 Loop

scrreport=scrreport&""&VBNewLine
scrreport=scrreport&"Added="&added&VBNewLine
scrreport=scrreport&"Failed or Duplicates="&failed&VBNewLine
wscript.echo scrreport
wscript.echo  "end !"

Sub AddAlias(strAlias,strEmailAddress,strDomain)
  Dim obDomain
  Dim obAliases
  Dim obNewAlias
  Set obDomain=obBaseApp.Domains.ItemByName(strDomain)
  Set obAliases=obDomain.Aliases
  Set obNewAlias=obAliases.Add()
  obNewAlias.Name=strAlias&"@"&strDomain     
  obNewAlias.Value=strEmailAddress           
  obNewAlias.Active=1
  obNewAlias.Save()
  Set obNewAlias=Nothing
  Set obAliases=Nothing
  Set obDomain=Nothing
End Sub

Sub AddUser(strUsername,strPassword,strDomain)
 Dim obDomain
 Dim obAccounts
 Dim obNewAccount
 Set obDomain=obBaseApp.Domains.ItemByName(strDomain)
 Set obAccounts=obDomain.Accounts
 Set obNewAccount=obAccounts.Add()
 obNewAccount.Address=strUsername&"@"&strDomain      'username
 obNewAccount.Password=strPassword                   'password
 obNewAccount.Active=1                               'activatesuser
 obNewAccount.Maxsize=500                             'set smailbox size,0=unlimited
 obNewAccount.Save()    
wscript.echo  "addok--"&obNewAccount.Address                              
 Set obNewAccount=Nothing
 Set obDomain=Nothing
 Set obAccounts=Nothing
End Sub 


Sub DelUser(strUsername,strDomain)
 Dim obDomain
 Dim obAccounts
 Dim obDelAccount
 Set obDomain=obBaseApp.Domains.ItemByName(strDomain)
 Set obAccounts=obDomain.Accounts
 Set obDelAccount = obAccounts.ItemByAddress(strUsername & "@" & strDomain)
 obDelAccount.Delete()
 wscript.echo  "delok--"& strUsername & "@" & strDomain                              
 Set obDelAccount=Nothing
 Set obDomain=Nothing
 Set obAccounts=Nothing
End Sub 



2. 然后同目录建立users.txt 文件,内容格式如下


User,tom,password,xxxx.com

User,abc,123,abc.com

...
Alias,jim,tom@xxxx.com,xxxx.com 
...


第一个字符串是 User 表示建一个邮箱账号

 第一个字符串是Alias 表示建立别名


3. 在dos命令窗口转到文件所在目录,执行如下命令

d:\batadduser>  cscript.exe  batadduser.vbs


即可批量建立账号


以上是批量建立的账号



安装了webmail后的登录界面




使用webmail登录批量建立的账号收发邮件







目录
相关文章
|
10月前
|
缓存 负载均衡 安全
Nginx的反向代理具体是如何实现的?
Nginx的反向代理具体是如何实现的?
|
前端开发
ElementUI——el-upload上传前校验图片宽高
ElementUI——el-upload上传前校验图片宽高
355 0
|
网络协议 算法 网络安全
如何在 Debian Wheezy 上使用 Postfix 安装和配置 DKIM
如何在 Debian Wheezy 上使用 Postfix 安装和配置 DKIM
295 0
|
SQL 运维 数据库
MSSQL性能调优实战:索引策略、查询优化与并发控制的精细操作
在Microsoft SQL Server(MSSQL)的日常运维与优化中,实现高效、稳定的数据库性能是每位数据库管理员和开发者的核心任务
|
Ubuntu NoSQL 应用服务中间件
如何在Ubuntu 14.04上安装、配置和部署Rocket.Chat
如何在Ubuntu 14.04上安装、配置和部署Rocket.Chat
612 0
|
安全 API 开发工具
微信开发:API接口与ipad协议的深度比较及最佳选择
微信开发:API接口与ipad协议的深度比较及最佳选择
1669 0
|
人工智能 自然语言处理 IDE
通义灵码_智能编码助手_AI编程——程序员必备编程利器!
*通义灵码是阿里云的AI编程助手,提供代码智能生成、研发问答等功能,如实时续写、自然语言转代码、单元测试、优化、注释生成等。支持多种编程语言,IDE包括JetBrains、VS Code和VS 2022。优势包括跨文件感知、阿里云服务优化、多IDE集成、研发问答和双模引擎。个人基础版免费,专业版现限时免费,企业版有不同的定价和服务。
1631 0
|
网络协议 数据安全/隐私保护 Windows
搭建个人hMailServer邮件服务实现远程发送邮件
搭建个人hMailServer邮件服务实现远程发送邮件
214 0
|
Windows
[✔️]让FFMpeg 在Win7上运行
[✔️]让FFMpeg 在Win7上运行
1173 0