最近、お仕事で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