Codigo Autenticacion contra active directory VB.NET

Como estoy desarrollando sistemas me encontré con este requerimiento y busque en internet como autenticar mi aplicación ya sea vb.net o asp.net contra un servidor de dominio active directory. Aquí dejo la función y los espacios de nombres a referenciar.


Imports System.DirectoryServices.AccountManagement
Imports System.DirectoryServices


Public Function IsAuthenticated(ByVal Domain As String, ByVal username As String, ByVal pwd As String) As Boolean
        Dim Success As Boolean = False
        Dim Entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & Domain, username, 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
            Success = False
        End Try
        Return Success
    End Function

Que software les gustaría que desarrollara?

Mi intención con este blog es intentar rentabilizar la inversión de tiempo que le de al mismo y es por ello que intentare desarrollar aplicaciones de acuerdo a las necesidades generales o a problemas puntuales que propongan. Me gustaría escuchar ideas al respecto para luego hacer una encuesta con todas ellas y determinar finalmente que aplicación y con que funcionalidades les gustaría contar a uds como usuarios.

saludos

cibernetiko

Actualización código fuente optimizador condor 3

Se había perdido el código fuente de este proyecto y no sabia donde lo había dejado, en la red ni rastros de los links que tenia hace tiempo, así que vuelvo a poner los fuentes para quien los quiera examinar.

http://uploadmirrors.com/download/1LUQB6GK/codigo_gpl_condor3.rar

saludos

cibernetiko