Visual Basic

Function CheckLogin(ldap as string, usr As String, pwd As String) As Boolean

        Dim Success As Boolean = False
        Dim Entry As New System.DirectoryServices.DirectoryEntry(ldap, usr, pwd)
        Dim Searcher As New System.DirectoryServices.DirectorySearcher(Entry)

        Searcher.SearchScope = DirectoryServices.SearchScope.OneLevel

        Try
            Dim Results As System.DirectoryServices.SearchResult = Searcher.FindOne
            Success = Not (Results Is Nothing)
        Catch ex As Exception
            Success = False
        End Try
 
        Return Success

End Function

Hi! I'm having a little trouble with the caret (^) character.

I'm using System.DirectoryServices.DirectoryEntry to verify the AD user.

The problem is when the password has a caret character at the end (E.g. zpfrt^), it returns a FALSE value. Even I tried to enclosed it in [], (), "", and {}, it doesn't solve the problem. I also tried this one - ^^^^, it still not working.

Do you have any idea how to fix this?

If I told the user to change his password without using the caret character, he might say "Windows accept my password with the caret character, why should I change that?" lolz

Please let me know if you have a solution. Thanks in advance guys  :) 

Dim lvg As New LVGROUP()
lvg.cbSize = CUInt(Marshal.SizeOf(lvg))
lvg.mask = LVGF_STATE Or LVGF_GROUPID Or LVGF_HEADER Or LVGF_FOOTER
Dim nRetHeader2 As Integer = SendMessage(m.HWnd, LVM_GETGROUPINFO, nItem, lvg)
Dim sHeadText As String = Marshal.PtrToStringUni(lvg.pszHeader)
Dim sFootTxt As String = Marshal.PtrToStringUni(lvg.pszFooter)

Private Shared Sub SetGrpFooter(ByVal lstvwgrp As ListViewGroup, ByVal footer As String)
            If Environment.OSVersion.Version.Major < 6 Then Return
            If lstvwgrp Is Nothing OrElse lstvwgrp.ListView Is Nothing Then Return
            If lstvwgrp.ListView.InvokeRequired Then
                lstvwgrp.ListView.Invoke(New CallbackSetGroupString(AddressOf SetGrpFooter), lstvwgrp, footer)
            Else
                Dim GrpId As System.Nullable(Of Integer) = GetGroupID(lstvwgrp)
                Dim group As New LVGROUP
                group.CbSize = Marshal.SizeOf(group)
                If (footer = String.Empty) Then
                    group.PszFooter = Nothing
                Else
                    group.PszFooter = footer
                End If
                'lstvwgrp.HeaderAlignment = HorizontalAlignment.Center
                'group.pszDescriptionBottom = "bottom" & Chr(0)
                'group.pszDescriptionTop = "top"

<pre>
            group.mask = ListViewGroupMask.Footer + ListViewGroupMask.DescriptionBottom + ListViewGroupMask.DescriptionTop
            Dim ip As IntPtr = Marshal.AllocHGlobal(group.cbSize)
            Marshal.StructureToPtr(group, ip, False)
            If GrpId IsNot Nothing Then
                group.IGroupId = GrpId.Value
                SendMessage(lstvwgrp.ListView.Handle, LVM_SETGROUPINFO, GrpId.Value, ip)
            Else
                group.iGroupId = GrpId
                SendMessage(lstvwgrp.ListView.Handle, LVM_SETGROUPINFO, GrpId.Value, ip)
            End If
        End If
    End Sub</pre>