SoftwareEngineering/ProgramLanguage/VB.NET
グループのメンバを追加/削除する場合に注意点があります。 メンバとするオブジェクトの作成とメンバの追加/削除(削除はありえないが……)の間隔が短いと同期の問題でオブジェクトが存在しない(エラーコード:0x80072030)例外が発生する可能性があります。 まだ推測の域を出ていないが、オブジェクトを作成したドメインコントローラーを指定すれば回避できるはず。
Dim group As DirectoryEntry = New DirectoryEntry("LDAP://DC01.codereign.org/CN=group0001,OU=Users,DC=codereign,DC=org") group.Properties("member").Add("CN=user0001,OU=Users,DC=codereign,DC=org") group.CommitChanges() group.Properties("member").Remove("CN=user0001,OU=Users,DC=codereign,DC=org") group.CommitChanges()
Dim group As DirectoryEntry = New DirectoryEntry("LDAP://DC01.codereign.org/CN=group0001,OU=Users,DC=codereign,DC=org") group..Invoke("Add", New Object() {"LDAP://DC01.codereign.org/CN=user0001,OU=Users,DC=codereign,DC=org"}) group.CommitChanges() group..Invoke("Remove", New Object() {"LDAP://DC01.codereign.org/CN=user0001,OU=Users,DC=codereign,DC=org"}) group.CommitChanges()