2009-12-13 49 views
0

我有服務器上的活動目錄(窗口)..和我想它與我的網頁連接..如何使用的ActiveDirectory

這是我的VB代碼:

Imports System 
Imports System.Collections.Generic 
Imports System.Linq 
Imports System.Data 
Imports System.Web 
Imports System.Web.UI 
Imports System.Web.UI.WebControls 
Imports System.DirectoryServices ' cannot be found ' 
Imports System.Runtime.InteropServices 
Imports System.Configuration 
Imports System.Data.SqlClient 
Partial Class Default3 
    Inherits System.Web.UI.Page 




    Public Function IsADUser(ByVal UserName As [String], ByVal Password As [String]) As [Boolean] 
     Dim entry As New DirectoryEntry() 
     entry.Username = UserName 
     entry.Password = Password 
     Dim searcher As New DirectorySearcher(entry) 
     searcher.Filter = "(objectclass=user)" 
     Dim Authentecated As [Boolean] = False 
     Try 
      searcher.FindOne() 
      Authentecated = True 
     Catch ex As COMException 
      Authentecated = False 
     End Try 
     Return (Authentecated) 
    End Function 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

    End Sub 
End Class 

回答

相關問題