hMailServer批量创建用户
1. 创建vbs脚本
新建一个txt,将下面的代码粘贴进去,然后修改文件后缀为.vbs 。
注意: 第11行要输入自己的hMailServer密码
Option Explicit
Dim obBaseApp
Dim objFSO
Dim objTextFile
Dim strNewUser,i
Const ForReading = 1
Set obBaseApp = CreateObject("hMailServer.Application")
Call obBaseApp.Authenticate("Administrator","your password")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("user.csv", ForReading)
Do While objTextFile.AtEndOfStream <> True
strNewUser = split(objTextFile.Readline, ",")
AddUser strNewUser(0), strNewUser(1), strNewUser(2)
i = i + 1
Loop
Sub AddUser(strUsername, strPassword, strDomain)
Dim obDomain
Dim obNewAccount
'WScript.Echo obBaseApp.Domains
Set obDomain = obBaseApp.Domains.ItemByName(strDomain)
Set obNewAccount = obDomain.Accounts.Add()
obNewAccount.Address = strUsername & "@" & strDomain 'username
obNewAccount.Password = strPassword 'password
obNewAccount.Active = 1 'activates user
obNewAccount.Maxsize = 1024 'sets mailbox size, 0=unlimited
obNewAccount.Save() 'saves account
Set obNewAccount = Nothing
Set obDomain = Nothing
End Sub
2. 生成用户列表
新建一个user.txt,输入用户信息,然后修改文件后缀为.csv,将user.csv文件和上面生成的.vbs放在同目录下。
用户信息格式为:
username,password,domain
如下图所示:
3. 运行
双击即可运行vbs文件,后查看hMailServer,可以看到用户已经创建好。