ADSIにてユーザのアカウントオプションを変更するには？ (ID:85352)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ADSIを利用し、ユーザアカウントを追加することは出来たのですが、アカウントオプションの値を変更することが出来なくて困っています。 下記のように記述して、実行すると「Active Directory プロパティがキャッシュに見つかりません」というエラーが表示されてしまいます。 原因がわからなくて困っています。 よろしくお願いします。 ******************************************************************* Const UF_PASSWORD_CANT_CHANGE = &H40 Set OU = GetObject("LDAP://OU=LOG,DC=SALES,DC=LOCAL") Set Usr = OU.Create("User", "CN=TestUser") Usr.PUT "samAccountName", "TestUser" 'Win2k以前のログオン名 Usr.PUT "userPrincipalName", "TestUser@sales.local" 'ログオン名 'usr.PUT "title", "Marketing Manager" '組織タブの役職 'usr.PUT "sn", "sn?" '姓 'usr.PUT "givenName", "given" '名 'usr.PUT "displayname", "表示名" 'usr.PUT "description", "descprition" Usr.setinfo Usr.AccountDisabled = False intUserFlags = Usr.Get("userFlags") intNewUserFlags = intUserFlags Or UF_PASSWORD_CANT_CHANGE Usr.PUT "userFlags", intNewUserFlags Usr.setinfo Usr.Setpassword "pass" Usr.setinfo test = Usr.Get("userflags") ******************************************************************