Methods
| Add | Add a new user. |
| Remove | Remove user. |
| AddAlias | Add a user alias (mail list). |
| SetFilter | Filter users by wildcard characters (* and ?). |
Properties
| Count | Users count. |
| Items | Get specified User object. |
| OrderAscent | Sort user by name ascent or descent. |
Remarks
UserCollection object is a collection made up of User objects. It can be used to manage all users in a specified domain.
Usage Example
Dim server, user, password, requestAddr
server = "localhost"
user = "admin@emailarchitect.net"
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
'get domain "emailarchitect.net"
Set oDomain = oDomains.Items("emailarchitect.net")
If oDomain Is Nothing Then
WScript.Echo( "domain doesn't exist" )
WScript.Quit
End If
Dim oUsers, oUser
Set oUsers = oDomain.UserCollection
'enumerate all users in "emailarchitect.net"
Dim i, nCount
nCount = oUsers.Count
For i = 0 To nCount-1
Set oUser = oUsers.Items(CLng(i))
WScript.Echo( oUser.Name )
Next