pzg's blog

配置分区容器中的 upnSuffixes 属性并向操作员显示最新取值。

脚本代码

复制代码
Const ADS_PROPERTY_APPEND = 3
Set objPartitions = GetObject _
  (“LDAP://cn=Partitions,cn=Configuration,dc=fabrikam,dc=com”)
 
objPartitions.PutEx ADS_PROPERTY_APPEND, _
  “upnSuffixes”, _
  Array(“sa.fabrikam.com”,”corp.fabrikam.com”)
objPartitions.SetInfo

For Each Suffix in objPartitions.GetEx(“upnSuffixes”)
  WScript.Echo Suffix
Next