vbscript - 修改 Active Directory 中的用户

Question

我已经修改（循环通过许多用户）来自这个 MS 网站的脚本，以将用户添加到 AD 中的组，但在此页面上并没有告诉我如何做某事。

Const ADS_PROPERTY_APPEND = 3
Set objGroup = GetObject _
 ("LDAP://cn=Atl-Users,ou=HR,dc=NA,dc=fabrikam,dc=com")

objGroup.PutEx ADS_PROPERTY_APPEND, _
 "member", Array("cn=YoungRob,ou=R&D,dc=NA,dc=fabrikam,dc=com")

objGroup.SetInfo

我在哪里可以添加以及检查他们是否已经拥有这个组以及他们是否跳过它们并只说类似的代码是什么wscript.echo "yeah they got this already" + UserName。

Answer 1

像这样的东西应该工作：

Const ADS_PROPERTY_APPEND = 3

dn = "cn=YoungRob,ou=R&D,dc=NA,dc=fabrikam,dc=com"

isMember = False

'check regular group memberships
For Each m In objGroup.GetEx("member")
  If LCase(m) = LCase(dn) Then
    isMember = True
    Exit For
  End If
Next

'check primary group
primaryGroupID = GetObject(dn).Get("primaryGroupID")
objGroup.GetInfoEx Array("primaryGroupToken"), 0
If primaryGroupID = objGroup.Get("primaryGroupToken") Then isMember = True

If Not isMember Then objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array(dn)