文档章节

hmailserver批量添加用户

Firxiao
 Firxiao
发布于 2016/03/30 18:03
字数 350
阅读 195
收藏 1

 

将内容复制到txt文件中后缀改为vbs

将用户名密码替换为自己的

  脚本内容如下:

Option Explicit
On Error resume next
 
Dim obBaseApp
Dim objFSO
Dim objTextFile
Dim strNewAlias,i
 
Dim scrreport
Dim failed
Dim added
failed = 0
added = 0
 
Const ForReading = 1
 
Set obBaseApp = CreateObject("hMailServer.Application")
 
 
Call obBaseApp.Authenticate("Administrator","password") '*** N.B. 1. set your administrator password in this line 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("users.txt", ForReading) ' *** N.B. 2. Set your CSV path/filename in this line
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)
End Select
If err.Number <> 0 Then 'error handling:
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
 
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 'username
obNewAlias.Value = strEmailAddress 'password
obNewAlias.Active = 1 'activates user
obNewAlias.Save() 'saves account
 
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 'activates user
obNewAccount.Maxsize = 500 'sets mailbox size, 0=unlimited
obNewAccount.Save() 'saves account
 
Set obNewAccount = Nothing
Set obDomain = Nothing 
Set obAccounts = Nothing
 
End Sub

 

 

users.txt示例

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

会在xxxx.com域添加一个用户名为tom 密码为password的用户,并创建将jim@xxxx.com转发至tom@xxxx.com

 

 

 

参考 https://www.hmailserver.com/forum/viewtopic.php?t=2206 

 

© 著作权归作者所有

共有 人打赏支持
Firxiao
粉丝 22
博文 99
码字总数 36560
作品 0
浦东
运维
私信 提问
采用hmailserver作为后台的含WEBMAIL的免费企业管理信息系统

这里有一个采用hmailserver作为后台的含WEBMAIL的免费企业管理信息系统,一键自动安装,功能很全面,内外网双通,在hmailserver的基础上扩展了很多新的功能:全中文界面;内外网地址簿;最近...

cantron
2012/01/04
2.5K
1
【建议】改进搜索功能

在开源中国 Web 端,搜索开源软件必须使用完整的软件名,才能所搜到指定软件,例如:使用 “hMailServer” 可以找 “hMailServer”,但是输入 “hMail” 并不能找到 “hMailServer”。 建议支...

struct
2017/03/11
703
1
windows server 2012R2 部署安装 hmail

windows server 2012R2 部署安装 hmail 环境说明: 系统: windows server2012 R2 软件版本: hMailServer-5.6.7-B2425.exe 邮件客户端: foxmail7.2版本 加密工具: hMailServerSSL098j.rar...

Innocence_caosm
2018/07/19
0
0
win服务器中安装开源电子邮箱服务端

同事发来需求,需要几百个真实的邮箱账号,用于WEB测试注册时使用,不需要用来发送邮件,仅是后端做验证而已。 燃鹅,手头上没有多的服务器可以用,咋办? VM + 开源邮箱服务端方案灵光一闪。...

hnzzck
2018/06/26
0
0
现在项目想选一个开源邮件系统进行集成和定制开发,大家能否推荐推荐?

windows,linux都行,服务能横向扩展最好。 之前看了 hMailServer 和 Postfix。

ubingo
2015/09/25
117
0

没有更多内容

加载失败,请刷新页面

加载更多

带你看数据挖掘与机器学习-厦大EDP上课出勤预测

带你看数据挖掘与机器学习-厦大EDP上课出勤预测 标签: 数据挖掘 特征工程 机器学习 出勤预测 write by xmhexi 2019/3/22 内容提要 首先说明本文是一篇科普文章,通过一个实际案例,帮助理解什...

xmhexi
今天
41
0
IOS  学习记录

1.StackView=>IOS 9及以上支持 2.布局方式: AutoLayout / StackView 堆布局 (线性布局) 3.屏幕适配 (资源分辨率、设计分辨率、屏幕分辨率) Size Class技术 可以针对 屏幕的方向进行设置...

萨x姆
今天
4
0
第四次工业革命:自主经济的崛起

https://36kr.com/p/5170370.html

shengjuntu
昨天
3
0
Cloud Native 与12-Factor

12-Factor(twelve-factor),也称为“十二要素”,是一套流行的应用程序开发原则。Cloud Native架构中使用12-Factor作为设计准则。 12-Factor 的目标在于: 使用标准化流程自动配置,从而使...

waylau
昨天
10
0
java多线程2

“非线程安全”问题存在于“实例变量”中,如果是方法内部的私有变量,则不存在线程安全问题。这是因为方法内部的变量都是私有造成的。 synchronized 获取的都是对象锁。如果多个线程访问多个...

一滴水穿石
昨天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部