以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 有没有人做AD结合的验证啊??  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50976)

--  作者:jiskin
--  发布时间:2014/5/16 10:13:00
--  [求助] 有没有人做AD结合的验证啊??
搜了下论坛,几乎没人搞过这个啊
让域用户直接打开软件

--  作者:jiskin
--  发布时间:2014/5/16 14:14:00
--  
以下是引用liming730323在2014-5-16 10:35:00的发言:
不是没人搞,是不会呀

 

有需求的顶起来啊 别傻愣着


--  作者:jiskin
--  发布时间:2014/5/16 14:15:00
--  
就算不会 也可以讨论下
--  作者:有点甜
--  发布时间:2014/5/16 15:08:00
--  

 查了下资料,应该是这样写,意思是,客户端连接一下域,连得上,就允许用软件即可。

 

 记得,添加一个引用 System.DirectoryServices.Dll

 

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()
    Next
catch ex As exception
    msgbox("连接不上......自己做操作")
    msgbox(ex.message)
End try


--  作者:jiskin
--  发布时间:2014/5/16 15:31:00
--  
以下是引用有点甜在2014-5-16 15:08:00的发言:

 查了下资料,应该是这样写,意思是,客户端连接一下域,连得上,就允许用软件即可。

 

 记得,添加一个引用 System.DirectoryServices.Dll

 

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()
    Next
catch ex As exception
    msgbox("连接不上......自己做操作")
    msgbox(ex.message)
End try

 

 

甜总 屌爆了!


--  作者:jiskin
--  发布时间:2014/5/19 9:23:00
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:system.directoryservices.rar

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table

提供了DLL 以及测试项目,按ctrl打开即可

[此贴子已经被作者于2014-5-19 9:27:37编辑过]

--  作者:有点甜
--  发布时间:2014/5/19 9:37:00
--  
 谢谢7楼。不过System.DirectoryServices是.net frameword已经集成的,直接在狐表里引用 System.DirectoryServices.Dll 即可。
[此贴子已经被作者于2014-5-19 9:37:22编辑过]

--  作者:jiskin
--  发布时间:2014/5/19 9:39:00
--  
以下是引用有点甜在2014-5-19 9:37:00的发言:
 谢谢7楼。不过System.DirectoryServices是.net frameword已经集成的,直接在狐表里引用 System.DirectoryServices.Dll 即可。
[此贴子已经被作者于2014-5-19 9:37:22编辑过]

 

甜总,请教如何引用啊 没玩过,我只知道 把dll添加进去 具体就不会了


--  作者:有点甜
--  发布时间:2014/5/19 10:04:00
--  
以下是引用jiskin在2014-5-19 9:39:00的发言:

 

甜总,请教如何引用啊 没玩过,我只知道 把dll添加进去 具体就不会了

 

直接在引用那里写 System.DirectoryServices.Dll ,不需要选择具体的dll文件


--  作者:jiskin
--  发布时间:2014/7/7 10:53:00
--  
以下是引用有点甜在2014-5-19 10:04:00的发言:

 

直接在引用那里写 System.DirectoryServices.Dll ,不需要选择具体的dll文件

 

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

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

这里要怎么赋值啊?