2019獨角獸企業重金招聘Python工程師標準>>>

?

將內容復制到txt文件中后綴改為vbs

將用戶名密碼替換為自己的

? 腳本內容如下:

Option?Explicit On?Error?resume?nextDim?obBaseApp Dim?objFSO Dim?objTextFile Dim?strNewAlias,iDim?scrreport Dim?failed Dim?added failed?=?0 added?=?0Const?ForReading?=?1Set?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?Ifi?=?i?+?1 Loopscrreport?=?scrreport?&?"?"?&?VBNewLine scrreport?=?scrreport?&?"Added?=?"?&?added?&?VBNewLine scrreport?=?scrreport?&?"Failed?or?Duplicates?=?"?&?failed?&?VBNewLine wscript.echo?scrreportSub?AddAlias(strAlias,strEmailAddress,strDomain) Dim?obDomain? Dim?obAliases? Dim?obNewAliasSet?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?accountSet?obNewAlias?=?Nothing Set?obAliases?=?Nothing Set?obDomain?=?Nothing?End?SubSub?AddUser(strUsername,?strPassword,?strDomain) Dim?obDomain? Dim?obAccounts? Dim?obNewAccountSet?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?accountSet?obNewAccount?=?Nothing Set?obDomain?=?Nothing? Set?obAccounts?=?NothingEnd?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?

?

轉載于:https://my.oschina.net/firxiao/blog/650017

總結

以上是生活随笔為你收集整理的hmailserver批量添加用户的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。