Active Directory　ダイアルインのプロパティにてアクセスを許可する

Tech
2012.08.07
Table of Contents

最近、お仕事で Active Directory の操作を VBScript を使って一括で処理するツールを作成中です。
目的はユーザにグループを追加すること、ユーザのプロパティでダイアルインの「アクセスを許可する」ことです。
グループ追加は問題なくできたのだが、「アクセスを許可する」が難してくてつまりました。
以下のサイトは参考にならず、同じとことではまっています。

いろいろ試してみたのだが、objUser.msNPAllowDialin = True でいけそうなので明日、仕事で試してダメならもうあきらめます。

Set objUser = GetObject(strADsPath)
objUser.Put "msNPAllowDialin", True
objUser.msNPAllowDialin = True
objUser.SetInfo

試したこと

 objUser.Put "msNPAllowDialin", TRUE
 objUser.PutEx ADS_PROPERTY_UPDATE, _
"msNPSavedCallingStationID", Array("555-0100", "555-0111")
objUser.PutEx ADS_PROPERTY_UPDATE, _
"msNPCallingStationID", Array("555-0100", "555-0111")

参考サイト