Set StdOut = WScript.StdOut
Dim obBaseApp
Set obBaseApp = CreateObject("hMailServer.Application")
Call obBaseApp.Authenticate("Administrator","YourPassword")


Dim fso, File, sText
Const ForWriting = 2

Set fso = CreateObject("Scripting.FileSystemObject")
set DomainFile = fso.OpenTextFile("c:\assp\domains.tmp", ForWriting, true)
set userFile = fso.OpenTextFile("c:\assp\users.tmp", ForWriting, true)







Dim obNewDomain
Set obNewDomain = obBaseApp.Domains.Add()



for x=0 to obBaseApp.Domains.Count-1
stdout.write "."
    Set obDomain = obBaseApp.Domains(x)
    domainfile.writeline obDomain.name
    'stdout.writeline obDomain.name
    user obDomain.name,x
    domainalias=obDomain.Domainaliases.count
    if domainalias>0 then
       for y=0 to domainalias-1
           set obDomainAlias=obDomain.Domainaliases(y)
           domainfile.writeline obDomainAlias.AliasName
           'stdout.writeline obDomainAlias.AliasName
           user obDomainAlias.Aliasname,x
       next
    end if
next


Set DomainFile = nothing
Set userFile = nothing


fso.CopyFile "c:\assp\users.tmp" , "c:\assp\users.txt", true
fso.CopyFile "c:\assp\domains.tmp" , "c:\assp\domains.txt", true




Set fso = nothing


sub user(domainname,itemnr)
Set fobDomain = obBaseApp.Domains(itemnr)
domain=fobDomain.name

  if len(fobDomain.postmaster)<2 then
 
 
  if fobDomain.accounts.count>0 then
     for a=0 to fobDomain.accounts.count-1
         if fobDomain.accounts(a).active=true then
            output=replace(fobDomain.accounts(a).Address,domain,domainname)
             userfile.writeline output
         end if
     next
  end if
 
  if fobDomain.aliases.count>0 then
     for a=0 to fobDomain.aliases.count-1
         if fobDomain.aliases(a).active=true then
           output=replace(fobDomain.aliases(a).name,domain,domainname)
           userfile.writeline output
         end if
     next
  end if
 
  if fobDomain.distributionlists.count>0 then
     for a=0 to fobDomain.distributionlists.count-1
         if fobDomain.distributionlists(a).active=true then
            output=replace(fobDomain.distributionlists(a).Address,domain,domainname)
            userfile.writeline output
         end if
     next
  end if
else
     userfile.writeline "@"&domainname
end if

end sub