可使用下列 Microsoft Visual Basic®, Scripting Edition (VBScript) 代码示例将新的 Class 对象添加到 IIS ADSI 架构中。
创建 Class 对象
' 获取计算机名的参数。
Dim ArgObj
Set ArgObj=WScript.Arguments
MachineName = ArgObj.Item (0)
ClassName = ArgObj.Item (1)
' 绑定到 Schema 容器对象。
Dim SchemaObj
Dim NewClassObj
Set SchemaObj = GetObject ("IIS://" & MachineName & "/Schema")
' 为 ClassName 创建新的 Class 对象。
Set NewClassObj = SchemaObj.Create ("Class", ClassName)
' 将新的 Class 对象写入配置数据库中。
NewClassObj.SetInfo
© 1997-2003 Microsoft Corporation。保留所有权利。