频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组

如何知道用户属于哪一个ActiveDirectory组

来源: 作者: 出处:巧巧读书 2006-05-23 进入讨论组
引用:http://www.qqread.com/network/server/s264991.html
  在我的登录脚本中,如何知道用户属于哪一个 Active Directory 组?
  
  你好,在登录脚本中实现这一点非常容易:
  
  On Error Resume Next
  Set objADSysInfo = CreateObject("ADSystemInfo")
  strUser = objADSysInfo.UserName
  Set objUser = GetObject("LDAP://" & strUser)
  For Each strGroup in objUser.memberOf
  Set objGroup = GetObject("LDAP://" & strGroup)
  Wscript.Echo objGroup.CN
  Next
  
  那么,这里会发生什么呢?好的,我们首先使用 ADSystemInfo 对象确定登录用户的可分辨名称;这个名称应该类似于:
  
  CN=kenmyer, OU=Managers, DC=fabrikam, DC=com
  
  在取得了可分辨名称之后,可以使用 LDAP 提供者将用户帐户绑定到 Active Directory。Active Directory 用户帐户有一个 memberOf 属性,它是一个数组,包括了用户所属的所有组。由于 memberOf 是一个数组,因此可以使用 For Each 循环来列出所有组。
  
  在获得返回的组名后,我们还要做最后一件事。默认情况下,组按照可分辨名称保存在 memberOf 属性中;因此可以得到如下所示的信息:
  
  CN=Production Leads, OU=Managers, DC=fabrikam, DC=com
  
  可分辨名称非常适于绑定到 Active Directory,但是对于回答“用户属于 Production Leads 组吗?”这样的问题却没有多少帮助。所以,我们还要再进一步,在取得组的可分辨名称后,将组帐户绑定到 Active Directory。这样做之后,便可以取得组的 CN (公用名,common name),并返回类似如下的组名:
  
  Production Leads
  
  这样要容易一点,至少说起来是这样。
  
  在这里要记住两件事情。第一,本脚本只能运行于 Windows 2000Windows XP 和 Windows 2003;这是因为 Windows NT 4.0 和 Windows 98 不支持 ADSystemInfo 对象。第二,本脚本只能返回用户作为独立成员所属于的组。您问是这话什么意思?好的,假定用户是 A 组的成员,而 A 组碰巧是 B 组的成员。本脚本无法识别出组中的组(组的嵌套);这需要稍微复杂一些的编程才能实现,我们将在以后讨论这个问题。进入讨论组讨论。
收藏此文】【 】【打印】【关闭
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
巧巧读书宗旨
相关专题
讨论组问题推荐
站内各频道最新更新文档
站内最新制作专题
热门关键字导读
Photoshop教 程照片处理 照片制作 PS快捷键 抠图
计 算 机 故 障XP系统修复
艺 术 与 设 计设计 流媒体 设计欣赏 边框
计 算 机 安 全ARP
站内频道文章精选
巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章