This function sets a new password for the selected provider to login Profile.
object.SetPassword(aOldPassword, aNewPassword,
aIgnoreWarningsKey)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProvider 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 |
Set a new password for the selected provider to login Profile, and display "True" if the password was successfully set.
Dim aProviders, aProvider
Dim aOldPassword
Dim aNewPassword
Dim aPasswordMacroLog
Dim aMacroLogMessage
Dim aMessage
aOldPassword = "333"
aNewPassword = "444"
set aProvider = Profile.LoadProvider("VE1")
set aPasswordMacroLog = aProvider.SetPassword(aOldPassword, aNewPassword, aIgnoreWarningsKey)
aProvider.Save
aMessage = "The result of the try to change password for " & aProvider.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)
In Profile Client v8 on User Interface Password can be found and set in
.