UpdateFields Method

Update user information.

long UpdateFields()

Return Value

Return value is zero if this method succeeds; otherwise return value is non-zero.

Remarks

Only "system" account or domain administrator has the permission to invoke this 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)" )
  WScript.Quit
End If

Const DOMAIN_ADMIN		= 1
Const CHANGE_PASSWORD	= 4

Const SMTP_DENIED		= 8
Const POP3_DENIED		= 16
Const WEB_DENIED		= 32
Const CHECK_FROM_AUTH	= 64

'assign domain administrator permission to this user
Dim Flags
Flags = oUser.Flags
Flags = (CLng(Flags) Or DOMAIN_ADMIN )
oUser.Flags = Flags

oUser.UpdateFields