将属性添加到类中

可使用下列 Microsoft Visual Basic, Scripting Edition (VBScript) 代码示例将新的属性对象添加到现有的 IIS ADSI 架构类中。

示例

'获取计算机名的参数。
Dim MachineName
Dim ClassName
Dim PropertyName
Dim Action
Dim ArgObj
Set ArgObj=WScript.Arguments
Action = ArgObj.Item (0)
MachineName = ArgObj.Item (1)
ClassName = ArgObj.Item (2)
PropertyName = ArgObj.Item (3)
'绑定到 Schema 容器中的 Class。
Dim SchemaObj
Dim NewClassObj
Set NewClassObj = GetObject ("IIS://" & MachineName & "/Schema/" & ClassName)
'设置 OptionalProperties 列表并添加 PropertyName。
Dim OptPropList
Dim cntOptPropListOptPropList = NewClassObj.OptionalProperties
cntOptPropList = UBound(OptProplist)
If (Action = "add") Then
   ReDim Preserve OptPropList(cntOptPropList+1)
   OptPropList(cntOptPropList+1) = PropertyNameNewClassObj.OptionalProperties = OptPropList
End If
if (Action = "del") Then
   Dim temparray
   Dim x, y
   ReDim temparray (cntOptPropList)
   
   x = y = LBound(OptPropList)
   For x = LBound(OptPropList) to UBound(OptPropList)
           If UCase(OptPropList(x)) = UCase(PropertyName) Then
              ReDim Preserve temparray (cntOptPropList-1)
                Else
                  temparray(y) = OptPropList(x) 'Copy item to the temp array
                  y = y + 1
                End If
  Next
 
NewClassObj.OptionalProperties = temparray
End if
NewClassObj.SetInfo 

相关主题

• 要获得更多示例，请参阅创建类和创建属性。

© 1997-2003 Microsoft Corporation。保留所有权利。