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")
******************************************************************
質問の追記です。
エラーになる行は、intUserFlags = Usr.Get("userFlags")の行です。
それと、一番下の行は間違えて記述してしまいました。
よろしくお願いします。
エラーの原因は、すみません記述を間違えていました・・・。
お騒がせしました。
エラーの原因は、すみません記述を間違えていました・・・。
お騒がせしました。