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.Remove("LDAP://CN=user1,OU=people,DC=example,DC=lan")
参考
VBScript で Active Directory グループの作成 | VBScript で Active Directory グループの削除 | VBScript で Active Directory グループにメンバーを追加 | IADsGroup インターフェース