pzg's blog

将两个组（Executives 和 Scientists）和一个用户帐户 (MyerKen) 添加到 Active Directory 中的 Sea-Users 组。

有关使用 ADSI 修改属性的更多信息，请单击 此处。

支持平台

Windows Server 2003
是
 
Windows XP
是
 
Windows 2000
是
 
Windows NT 4.0
是，需要安装 Active Directory Client Extensions
 

脚本代码

Const ADS_PROPERTY_APPEND = 3
Set objGroup = GetObject _
  (“LDAP://cn=Sea-Users,cn=Users,dc=NA,dc=fabrikam,dc=com”)
objGroup.PutEx ADS_PROPERTY_APPEND, “member”, _
    Array(“cn=Scientists,ou=R&D,dc=NA,dc=fabrikam,dc=com”, _
      “cn=Executives,ou=Management,dc=NA,dc=fabrikam,dc=com”, _
      “cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com”)
objGroup.SetInfo