ChangePassword Method

Change password of built-in account "system".

long ChangePassword(
	[in] BSTR OldPassword, 
	[in] BSTR NewPassword
)

Parameters

OldPassword

Old password of "system" account.

NewPassword

New password of "system" account.

Return Value

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

Remarks

This password can only be changed after logon as "system" user .

Usage Example

Dim server, user, password, requestAddr
server = "localhost"
user = "system"
password = "mypassword"
requestAddr = "192.168.0.1"
newpassword = "mynewpassword"

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

r = oSvr.ChangePassword( password, newpassword )
If r <> 0 Then
  WScript.Echo( "change password failed!" )
End If

oSvr.Close