作成 2010.01.07
更新 2010.01.07
更新 2010.01.07
VBScript で Active Directory グループにメンバーを追加
このサンプルでは ADSI を使用してグループにメンバーを追加します。
指定したDNがなければ実行エラーになります。
また、グループに既にメンバーがいても実行エラーになります。
Option Explicit
Const strGroup = "CN=group01,OU=people,DC=example,DC=lan"
Dim adsGroup
Set adsGroup = GetObject("LDAP://" & strGroup)
adsGroup.Add("LDAP://CN=user1,OU=people,DC=example,DC=lan")
参考
VBScript で Active Directory グループの作成 | VBScript で Active Directory グループの削除 | VBScript で Active Directory グループからメンバーを削除 | IADsGroup インターフェース