''' <summary>
    ''' Reset DotNetNuke User Password
    ''' </summary>
    ''' <param name="userName"></param>
    ''' <param name="newPwd"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ResetPassword(userName As String, newPwd As String) As Boolean
        Dim result As Boolean
        Try
            Dim user = GetMembershipUser(userName)
            If (user.IsLockedOut) Then
                user.UnlockUser()
            End If

            Dim oldPassword = user.GetPassword()
            result = user.ChangePassword(oldPassword, newPwd)
        Catch ex As Exception
            result = False
        End Try
        Return result
    End Function
#Region "Private Functions"
    'Please reference : Library\Providers\MembershipProviders\AspNetMembershipProvider\AspNetMembershipProvider.vb
    ''' <summary>
    '''
    ''' </summary>
    ''' <param name="userName"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function GetMembershipUser(userName As String) As MembershipUser
        Dim cacheKey As String = String.Format("MembershipUser_{0}", userName.ToString())
        Return CBO.GetCachedObject(Of MembershipUser)(New CacheItemArgs(cacheKey, _
                                                                            DataCache.UserCacheTimeOut, _
                                                                            DataCache.UserCachePriority, _
                                                                            userName), _
                                                                            AddressOf GetMembershipUserCallBack)
    End Function
    Private Shared Function GetMembershipUserCallBack(cacheItemArgs As CacheItemArgs) As Object
        Dim userName = DirectCast(cacheItemArgs.ParamList(0), String)
        Return Membership.GetUser(userName)
    End Function

#End Region