ISExternalProvider.SetPassword

Description

This function sets a new password for the selected external provider to login Profile.

Syntax

object.SetPassword(aOldPassword, aNewPassword, aIgnoreWarningsKey)

Part	Attribute	Type	Description
`object`	Required	ISExternalProvider	The `object` always implements the ISExternalProvider interface
`aOldPassword`	In, Required	string	The old password
`aNewPassword`	In, Required	string	The password to set
`aIgnoreWarningsKey`	In/Out, Required	object&	The parameter is used to determine how to treat warnings

Return Value

ISMacroLog

The returned ISMacroLog interface contains all errors and warnings generated by the password validation macro.

Example

Set a new password for the selected external provider to login Profile, and display "True" if the password was successfully set.

Dim aExtProvider
Dim aCode
Dim aOldPassword
Dim aNewPassword
Dim aPasswordMacroLog
Dim aMacroLogMessage
Dim aMessage

aCode = "1"
aOldPassword = "123"
aNewPassword = "222"  

set aExtProvider = Profile.LoadExternalProvider(aCode)
set aPasswordMacroLog = aExtProvider.SetPassword(aOldPassword, aNewPassword, aIgnoreWarningsKey)
aExtProvider.Save

 
aMessage = "The result of the try to change password for " & aExtProvider.FullName &_
  " is " & aPasswordMacroLog.CanProceed   
  
if aPasswordMacroLog.MessageCount > 0 then
  aMessage = aMessage & vbNewLine & "Message:"
  for i = 0 to aPasswordMacroLog.MessageCount - 1 
    set aMacroLogMessage = aPasswordMacroLog.Messages(i) 
    aMessage = aMessage & vbNewLine & CStr(i + 1) & ")  " &_ 
      aMacroLogMessage.Description  
  next
end if   
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Password can be found and set in Organisation > External Providers > Basic > Internet > Password field.

Version information

Added in v7.8.0