作成 2010.01.07
更新 2010.03.10
更新 2010.03.10
VBScript で Active Directory ユーザーの削除
このサンプルでは ADSI を使用してユーザーを削除します。指定したOUにユーザーが存在しないと実行エラーになります。
Option Explicit Const CstrOUDN = "OU=people,DC=example,DC=lan" Const CstrUserName = "testuser" fUserDel CstrOUDN, CstrUserName WScript.Echo "end" Function fUserDel( strOUDN, strUserName ) Dim adsOU Set adsOU = GetObject( "LDAP://" & strOUDN ) adsOU.Delete "user", "cn=" & strUserName fUserDel = True End Functionユーザーの DN が OU より先に判明する場合は以下の方法で。
Option Explicit Const CstrUserDN = "CN=testuser,OU=people,DC=example,DC=lan" fUserDel2 CstrUserDN WScript.Echo "end" Function fUserDel2( strUserDN ) Dim adsUser, adsOU Set adsUser = GetObject( "LDAP://" & strUserDN ) Set adsOU = GetObject( adsUser.Parent ) adsOU.Delete "user", adsUser.Name End Function参考
VBScript で Active Directory ユーザーの追加 | IADsContainer インターフェース