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