主题：[求助] 有没有人做AD结合的验证啊？？

 

甜总，我还有个问题要请教下

如果FT想赋值给全局变量_UserName的值

这里要怎么赋值啊？

 直接不就行？什么意思？

 

_UserName = "abcdefg"

 

在AD认证中 认证成功的用户名也就是当前用户名赋值给_UserName

但是不会判断当前用户名……

请指点

做好例子 学习呗

 

Dim domainName As String = "test.com"

try
    Dim entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & domainName)
    Dim mySearcher As New System.DirectoryServices.DirectorySearcher(entry)
    mySearcher.Filter = ("(objectClass=user)")  'user表示用户,group表示组
   
    For Each resEnt As System.DirectoryServices.SearchResult In mySearcher.FindAll()

        msgbox(resEnt.GetDirectoryEntry().Name & " | " & resEnt.GetDirectoryEntry().UserName)
    Next
catch ex As exception
    msgbox("连接不上......自己做操作")
    msgbox(ex.message)
End try

 

private string GetCurrentFullName()
  {
   string DomainName = System.Environment.UserDomainName;
   string AccountName = System.Environment.UserName.ToLower();
   DirectoryEntry de = new DirectoryEntry("LDAP://" + DomainName);
   DirectorySearcher ds = new DirectorySearcher(de);
   ds.Filter = ("(objectClass=user)");

		
   foreach (SearchResult sr in ds.FindAll())
   {
    string fullName = sr.GetDirectoryEntry().Name.ToString();
    if (sr.GetDirectoryEntry().Properties["samaccountname"].Value.ToString().ToLower() == AccountName)
    {
     return fullName.Substring(3, fullName.Length-3);
    }
   }
   return "";   
  }

甜总能不能把这个改一改我不会弄，这个应该是可以判断出当前用户名的

 

Dim DomainName As String = System.Environment.UserDomainName
Dim AccountName As String = System.Environment.UserName.ToLower()

try
    Dim entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & domainName)
    Dim mySearcher As New System.DirectoryServices.DirectorySearcher(entry)
    mySearcher.Filter = ("(objectClass=user)")  'user表示用户,group表示组
   
    For Each resEnt As System.DirectoryServices.SearchResult In mySearcher.FindAll()
        Dim fullName As String = resEnt.GetDirectoryEntry().Name.ToString()
        If resEnt.GetDirectoryEntry().Properties("samaccountname").Value.ToString().ToLower() = AccountName Then
            msgbox(fullName.Substring(3, fullName.Length-3))
        End If
    Next
catch ex As exception
    msgbox("连接不上......自己做操作")
    msgbox(ex.message)
End try