ChangePassword Method

Change user's password.

long ChangePassword(
  [in] BSTR Password, 
  [in, optional, defaultvalue("")] BSTR OldPassword
)

Parameters

Password

New password.

OldPassword

Old password of user. "system" account or domain administrator can change user's password without old password.

Return Value

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

Remarks

User alias can't change password.

Usage Example

Dim server, user, password, requestAddr
server = "localhost"
user = "tester@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, NewPassword
Set oUsers = oDomain.UserCollection
Set oUser = oUsers.Items(CStr("tester"))

NewPassword = "mynewpass"
If oUser.ChangePassword( NewPassword, password ) <> 0 Then
  WScript.Echo( "change password failed" )
  WScript.Quit
End If