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，可以看到用户已经创建好。

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