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

 

最近、お仕事でActive Directoryの操作をVBScriptで一括処理行うものを作成中。

目的としてはユーザにグループ追加を追加することと、ユーザのプロパティにおいてダイアルインの「アクセスを許可する」ををしたい。

グループ追加は問題なくできたのだが、「アクセスを許可する」がなんといえないほどつまりました。以下のサイトは非常に参考になったというか、同じことではまっている。

 

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

 

   1:  Set objUser = GetObject(strADsPath)
   2:  'objUser.Put "msNPAllowDialin", True
   3:  objUser.msNPAllowDialin = True
   4:  objUser.SetInfo
 
 

試したこと

   1:  objUser.Put "msNPAllowDialin", TRUE
   2:  objUser.PutEx ADS_PROPERTY_UPDATE, _
   3:      "msNPSavedCallingStationID", Array("555-0100", "555-0111")
   4:  objUser.PutEx ADS_PROPERTY_UPDATE, _
   5:      "msNPCallingStationID", Array("555-0100", "555-0111")

 

参考サイト

LDIFDE