AD活动目录操作类-示例

用前面那个AD活动目录操作类做一些简单的示例
http://www.cnblogs.com/yangboshan/archive/2007/07/25/830747.html
登陆的时候根据域帐户的名称和密码来验证
页面上有两个TextBox,分别为txtName和txtPass。一个登陆按钮Button1
在Button1的Click事件中写上如下代码：

  Dim  userName  As   String   =   Me .txtName.Text
  Dim  passWord  As   String   =   Me .txtPass.Text

   Dim  result  As   Integer
            ADHelper.UserName  =  userName
            ADHelper.PassWord  =  passWord

调用操作类的Login函数

  result  =  ADHelper.Login(userName, passWord)

根据返回值来做不同操作

If  (result  =   0 )  Then
                               Session( " name " )  =  userName
                 Dim  email  As   String   =  ADHelper.GetProperty(ADHelper.test(userName),  " Mail " )
                 Dim  telephone  As   String   =  ADHelper.GetProperty(ADHelper.test(userName),  " telephoneNumber " )
                 Dim  office  As   String   =  ADHelper.GetProperty(ADHelper.test(userName),  " physicalDeliveryOfficeName " )
                 Dim  department  As   String   =  ADHelper.GetProperty(ADHelper.test(userName),  " Department " )
                 Dim  position  As   String   =  ADHelper.GetProperty(ADHelper.test(userName),  " Title " )
                Session( " pos " )  =  position
                Session( " dept " )  =  department
                Session( " office " )  =  office
                Session( " email " )  =  email
                Session( " telephone " )  =  telephone
                 Me .Label6.Text  =   " Login successfully "
                 Me .Label6.ForeColor  =  Drawing.Color.Green
                 Me .Button1.Text  =   " Log_out "
                          Else
                 Me .Label6.Text  =   " Login fail "
                 Me .Label6.ForeColor  =  Drawing.Color.Red
             End   If

当result返回0时，表示验证用户成功，并把帐户的一些常用属性写进Session
下面是操作类中的Enum。

  Public   Enum LoginResult Enum LoginResult

        LOGIN_OK = 0
        LOGIN_USER_DOESNT_EXIST
        LOGIN_USER_ACCOUNT_INACTIVE
    End Enum

操作类中ADPath的值是放在配置文件中的，其中wl.com就是域控的名称。

< appSettings >
     < add  key ="ADPath"  value ="LDAP://wl.com" />
</ appSettings >

在上面取得用户的属性是根据用户名和密码的。
如果只根据用户名取得属性可以如下面这样写：
use是用户名

Dim  mailAddress  as   String =  ADHelper.GetProperty(ADHelper.nopassword(use),  " Mail " )

上面这句代码就是根据用户名取得Mail属性的值

转载于:https://www.cnblogs.com/yangboshan/archive/2007/07/30/836089.html