Add Method

Add a new domain.

IDomain* Add([in] IDomain* pDomain)

Parameters

pDomain

Domain object to be added.

Return Value

Return value is a domain object if this method succeeds; otherwise return value is null.

Usage Example

Dim server, user, password, requestAddr
server = "localhost"
user = "system"
password = "mypassword"
requestAddr = "192.168.0.1"

Dim oSvr
Set oSvr = CreateObject("EmailArchitectObjects.ServerRoot")
r = oSvr.Connect( server, user, password, 0, requestAddr )
If r <> 0 Then
  WScript.Echo( "connect server failed!" )
  WScript.Quit
End If

Dim oDomains, oDomain
Set oDomains = oSvr.DomainCollection

'add new domains in server.
oDomain.Name = "adminsystem.com"
oDomain.MaxMBXSize = 10 *1024*1024 '10MB mailbox
oDomain.IsAlias = 0 'local domain
oDomain.Enabled = 1 'active
oDomain.MaxUsers = 250
oDomain.Option = "default@adminsystem.com" 'nobody alias
oDomain.Flags = 1

Set oDomain = oDomains.Add( oDomain )
If oDomain Is Nothing Then
  WScript.Echo  "This domain exists, failed to add new domain!"
Else
  WScript.Echo "add domain succeeded!"
End If