如何辨别用户Active Directory组

在我的登录脚本中，如何知道用户属于哪一个 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

　　这样要容易一点，至少说起来是这样。

　　在这里要记住两件事情。第一，本脚本只能运行于 2000、 XP 和 Windows 2003;这是因为 Windows NT 4.0 和 Windows 98 不支持 ADSystemInfo 对象。第二，本脚本只能返回用户作为独立成员所属于的组。您问是这话什么意思?好的，假定用户是 A 组的成员，而 A 组碰巧是 B 组的成员。本脚本无法识别出组中的组(组的嵌套);这需要稍微复杂一些的编程才能实现，我们将在以后讨论这个问题。

责编Melinda

转载：感谢您对网站平台的认可，以及对我们原创作品以及文章的青睐，非常欢迎各位朋友分享到个人站长或者朋友圈，但转载请说明文章出处。