Visual Basic

Imports System.DirectoryServices

Friend Function VerifyUser(ByVal Username As String, ByVal Password As String, ByVal groupType As EGroupType) As Boolean

        Dim RootDomain As New DirectoryEntry("LDAP://rootDSE")
        Dim strDNC As String = RootDomain.Properties("DefaultNamingContext")(0)
        Dim UserEntry As New DirectoryEntry("LDAP://" & strDNC, Username, Password)
        Dim Searcher As DirectorySearcher = New DirectorySearcher(UserEntry)
        Dim SearchResults As SearchResultCollection
        Dim SearchResult As SearchResult
        Dim GroupPresentFlag As Boolean
        Dim Data As String
        Dim Cnt As Integer
        Dim ResultCollection As ResultPropertyCollection
        Dim ValueCollection As ResultPropertyValueCollection
        Dim m_configSettings As New GlobalData()

        Username = Username.Trim(" ")
        Password = Password.Trim(" ")

        Searcher.Filter = ("(samaccountname= " & Username & ")")
        Searcher.PropertiesToLoad.Add("memberOf")
        GroupPresentFlag = False

        Try
            SearchResults = Searcher.FindAll

        Catch Ex As Exception

        End Try


        For Each SearchResult In SearchResults
            ResultCollection = SearchResult.Properties

        Next

        ValueCollection = ResultCollection.Item("memberOf")
        For Cnt = 0 To ValueCollection.Count - 1
            Data = CType(ValueCollection(Cnt), String)
            Select Case groupType
                Case EGroupType.Users
                    If InStr(Data, m_configSettings.ADUserGroupName, CompareMethod.Text) Then
                        GroupPresentFlag = True

                    End If

                Case EGroupType.Poweruser
                    If InStr(Data, m_configSettings.ADPoweruserGroupName, CompareMethod.Text) Then
                        GroupPresentFlag = True

                    End If

                Case EGroupType.EarlyAdopter
                    If InStr(Data, m_configSettings.ADEarlyadopterGroupName, CompareMethod.Text) Then
                        GroupPresentFlag = True

                    End If

                Case EGroupType.Admin
                    If InStr(Data, m_configSettings.ADAdminGroupName, CompareMethod.Text) Then
                        GroupPresentFlag = True

                    End If

            End Select

        Next

        If (Not m_configSettings Is Nothing) Then
            m_configSettings = Nothing

        End If
        Return GroupPresentFlag

    End Function

button.Click += new System.EventHandler(buttonClick)