hmailserver导出所有域的用户列表

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

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

脚本内容如下:

Option Explicit

Const HMSADMINUSER = "administrator"
Const HMSADMINPWD = "password"   ' ***CHANGE ME

Dim oApp, oDomain, oAccount, list

Set oApp = CreateObject("hMailServer.Application")
Call oApp.Authenticate(HMSADMINUSER, HMSADMINPWD)

For oDomain = 0 to oApp.DOmains.count-1
   list = list & oApp.Domains.item(oDomain).name & VBNewLine
   For oAccount = 0 to oApp.Domains.item(oDomain).Accounts.count-1
      list = list &  "   " & oApp.Domains.item(oDomain).Accounts.item(oAccount).address & VBNewLine
   Next 'oAccount
Next ' oDomain

wscript.echo list

将输出至文本

执行即可

cscript.exe //NoLogo "C:\path\to\your.vbs" >"C:\output.txt"