vb net - controllo active directory

[eurostar_italia]

Non è importante ... puoi applicare quelle funzioni anche nel tuo programma

http://support.microsoft.com/kb/326340/it
ho copiato l'intera codice e creato una nuova classe come descritto ma non ho capito come farglielo richiamare all'avvio dell'eseguibile.
li parla di creare una pagina di log-on apposta.
nel mio caso dovrei creare un form di log on magari ?

[eurostar_italia]

ho creato una form chiamata login con il classico button 1.
sull 'evento click ho inserito questocodice

Imports System
Imports System.Text
Imports System.Collections
Imports System.DirectoryServices


Public Class login


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click






Namespace FormsAuth


        Public Class LdapAuthentication


            Dim _path As String
            Dim _filterAttribute As String


            Public Sub New(ByVal path As String)
                _path = path
            End Sub


            Public Function IsAuthenticated(ByVal domain As String, ByVal username As String, ByVal pwd As String) As Boolean


                Dim domainAndUsername As String = domain & "\" & username
                Dim entry As DirectoryEntry = New DirectoryEntry(_path, domainAndUsername, pwd)


                Try
                    'Bind to the native AdsObject to force authentication.			
                    Dim obj As Object = entry.NativeObject
                    Dim search As DirectorySearcher = New DirectorySearcher(entry)


                    search.Filter = "(SAMAccountName=" & username & ")"
                    search.PropertiesToLoad.Add("cn")
                    Dim result As SearchResult = search.FindOne()
                    If (result Is Nothing) Then
                        Return False
                    End If


                    'Update the new path to the user in the directory.
                    _path = result.Path
                    _filterAttribute = CType(result.Properties("cn")(0), String)


                Catch ex As Exception
                    Throw New Exception("Error authenticating user. " & ex.Message)
                End Try


                Return True
            End Function


            Public Function GetGroups() As String
                Dim search As DirectorySearcher = New DirectorySearcher(_path)
                search.Filter = "(cn=" & _filterAttribute & ")"
                search.PropertiesToLoad.Add("memberOf")
                Dim groupNames As StringBuilder = New StringBuilder()


                Try
                    Dim result As SearchResult = search.FindOne()
                    Dim propertyCount As Integer = result.Properties("memberOf").Count


                    Dim dn As String
                    Dim equalsIndex, commaIndex


                    Dim propertyCounter As Integer


                    For propertyCounter = 0 To propertyCount - 1
                        dn = CType(result.Properties("memberOf")(propertyCounter), String)


                        equalsIndex = dn.IndexOf("=", 1)
                        commaIndex = dn.IndexOf(",", 1)
                        If (equalsIndex = -1) Then
                            Return Nothing
                        End If


                        groupNames.Append(dn.Substring((equalsIndex + 1), (commaIndex - equalsIndex) - 1))
                        groupNames.Append("|")
                    Next


                Catch ex As Exception
                    Throw New Exception("Error obtaining group names. " & ex.Message)
                End Try


                Return groupNames.ToString()
            End Function




        End Class


    End Namespace




End Class

l'errore generato è "l'istruzione non può trovarsi nel corpo di un metodo.verrà interpretata come fine del metodo".
in piu non ho capito come fa a prendersi i dati inseriti nelle textbox...

[oregon]

Ma cosa hai fatto? Hai inserito dentro all'evento Click il namespace e la classe LdapAuthentication ??

Scusa se lo chiedo, ma tu hai mai scritto una linea in VB.NET?

La classe dell'autenticazione va in un file a parte e nel tuo form devi instanziare un oggetto di quella classe di cui utilizzare i vari metodi nel click ...

Ora non ho tempo di scriverti il codice ma prova a rimediare e poi ci sentiamo ...

[eurostar_italia]

[QUOTE=oregon;25230237]Ma cosa hai fatto? Hai inserito dentro all'evento Click il namespace e la classe LdapAuthentication ??

Scusa se lo chiedo, ma tu hai mai scritto una linea in VB.NET?

si ma considera che è come se fossi all'asilo nido della programmazione in vb.net.
ci vogliono anni per imparare e io non mi reputo un programmatore.
pensavo fosse piu fattibile.
tutto sommato credo sia meglio lasciar stare l'active directory.
nel frattempo però mi sono preso il tuo consiglio e mi sto documentando in merito.
ci tengo però a ringraziarti perchè comunque mi hai aiutato a capire dove sbagliavo (e non è ironia).

[oregon]

Sì, devi creare un form in cui inserire utente e password per il controllo.

[eurostar_italia]

Sì, devi creare un form in cui inserire utente e password per il controllo.

la form l'ho creata e ho copiato paro paro il codice e l'ho inserito nell'evento click di un ovvio pulsante di submit.
ma mi da errori di compilazione.
credo di non aver ben compreso come inserirlo ne come intercettare i dati

[oregon]

credo di non aver ben compreso come inserirlo ne come intercettare i dati

Di quale codice parli esattamente? DI quali errori?

[oregon]

Guarda la mia non era una critica fine a sé stessa, non mi permetterei, ma per affrontare l'argomento Active Directory pensavo fossi abbastanza "confidente" con il linguaggio.

Invece credo tu non abbia ancora la preparazione di base per affrontare problemi anche più semplici. Ci vuole un po' di tempo.

[eurostar_italia]

hai fatto benissimo.è importante cominciare con le basi giuste e per questo ti ringrazio.
ora mi documenterò.purtroppo un buon corso vb.net è difficile da trovare.