作成 2010.01.07
更新 2010.01.07
更新 2010.01.07
VBScript でスキーマの一覧取得
このサンプルは指定したオブジェクトに設定/取得可能な属性の一覧を表示します。メッセージがたくさん出るので cscript で実行してください。
Option Explicit
Dim usr, sch, data
Set usr = GetObject("LDAP://CN=Administrator,CN=Users,DC=example,DC=lan")
Set sch = GetObject(usr.Schema)
WScript.Echo sch.name
WScript.Echo "----- MandatoryProperties -----"
For Each data in sch.MandatoryProperties
EnumerateProperties data
Next
WScript.Echo "----- OptionalProperties -----"
For Each data in sch.OptionalProperties
EnumerateProperties data
Next
Sub EnumerateProperties(adsProp)
Dim adsProperty
Dim wStr
Set adsProperty = GetObject("LDAP://Schema/" & adsProp)
wStr = adsProp & vbTab & adsProperty.Syntax
If adsProperty.MultiValued Then
wStr = wStr & vbTab & "MultiValued"
End If
WScript.Echo wStr
End Sub
参考
ActiveDirectorySchemaClass クラス | IADsProperty Interface | IADs インターフェース | VBScript でスキーマの一覧取得２