批量添加用户 php,hmailserver批量添加用户

将内容复制到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