作成 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 でスキーマの一覧取得2


©2004-2017 UPKEN IPv4