Methods
| UpdateFields | Update user information. |
| ChangePassword | Change current user's password. |
Properties
| Name | User name. |
| FirstName | User first name. |
| LastName | User last name. |
| Enabled | Current user is active. |
| Flags | Flags of current user. |
| IsAlias | Current user is user alias (mail-list). |
| MaxMessageSize | Maximum message size for current user. |
| MaxMBXSize | Maximum storage size for current user. |
| EmailList | Email list for alias user. |
| MBXCollection | Get MBXCollection object of current user. |
| NewSmtpMail | Get SmtpMail object for current user. |
| PersonalSetting | Get PersonalSetting object for current user. |
| ContactCollection | Get ContactCollection object of private address book of current user. |
| FilterCollection | Get FilterCollection object of current user for customized filters. |
| Preferences | Get PreferenceCollection object of current user. |
Remarks
User object contains all setting of an user/alias in EAS. Only "system" account or domain administrator has the permission to invoke UpdateFields method.
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
Set oUser = oUsers.Items(CStr("test"))
If oUser Is Nothing Then
WScript.Echo( "this user doesn't exist" )
WScript.Quit
End If
If oUser.IsAlias > 0 Then
WScript.Echo( "this user is alias(email list)" )
Else
WScript.Echo( "this user is a normal user" )
End If