Methods
| Add | Add a new domain. |
| Remove | Delete a domain. |
| SetFilter | Filter domains by wildcard characters ( * and ? ). |
Properties
| Count | Domain count. |
| Items | Get specified domain object. |
| MaxCount | Maximum domain current server supports. It is limited by license. |
| OrderAscent | Sort domains by name ascent or descent. |
Remarks
DomainCollection object is a collection made up of Domain objects. It can be used to manage all domains in EAS. only "system" account can add/remove domains, other users can only access the her domain by DomainCollection object.
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
'enumerate all domains in server.
Dim i, nCount
nCount = oDomains.Count
For i = 0 To nCount-1
Set oDomain = oDomains.Items(CLng(i))
WScript.Echo( oDomain.Name )
Next