利用ADSI对IIS进行编程

〈%= IISObject.Parent %>〈/td>〈/tr>
〈tr>〈td>SchemaLocation〈/td>〈td>〈%= IISObject.Schema %>〈/td>〈/tr>
〈tr>〈td>Class〈/td>〈td>〈%= IISObject.Class %>〈/td>〈/tr>
〈tr>〈td>Guid〈/td>〈td>〈%= IISObject.Guid %>〈/td>〈/tr>
〈tr>〈td>ADSPath〈/td>〈td>〈%= IISObject.AdsPath %>〈/td>〈/tr>
〈/table>〈br>
〈table border=1>
〈tr>〈th>Class Property〈/th>〈th>Class Value〈/th>〈/tr>
〈tr>〈td>Name〈/td>〈td>〈%= ClassDefinition.Name %>〈/td>〈/tr>
〈tr>〈td>Parent〈/td>〈td>〈%= ClassDefinition.Parent %>〈/td>〈/tr>
〈tr>〈td>SchemaLocation〈/td>〈td>〈%= ClassDefinition.Schema %>〈/td>〈/tr>
〈tr>〈td>Class〈/td>〈td>〈%= ClassDefinition.Class %>〈/td>〈/tr>
〈tr>〈td>Guid〈/td>〈td>〈%= ClassDefinition.Guid %>〈/td>〈/tr>
〈tr>〈td>ADSPath〈/td>〈td>〈%= ClassDefinition.AdsPath %>〈/td>〈/tr>
〈/table>〈br>
〈%
on error resume next

asMustHaves = ClassDefinition.MandatoryProperties
asMayHaves = ClassDefinition.OptionalProperties

i=1
%>
〈table border=1>
〈tr>〈th>Class Must Have Property〈/th>
〈th>Default Web Site Current Value〈/th>〈/tr>
〈%
For Each Thing in asMustHaves
Response.Write "〈tr>〈td>("& Cstr(i) & ") " &_
Thing & "〈/td>〈td>" &_
IISObject.Get(Thing) & "〈/td>〈/tr>"
i = i + 1
Next
%>
〈/table>
〈br>
〈table border=1>
〈tr>〈th>Class May Have Property〈/th>
〈th>Default Web Site Current Value〈/th>〈/tr>
〈%
i=1
For Each Thing in asMayHaves
Response.Write "〈tr>〈td>("& CStr(i) & ") " &_
Thing & "〈/td>〈td>" &_
IISObject.Get(Thing) & "〈/td>〈/tr>"
i = i + 1
Next
%>
〈/table>

 

为了取得默认WEB站点的属性,你需要知道属性的名称,或者 isWebServer这一类的属性的列表.在例
4中,我们取得了所有的属性并且列出了他们的值.每个对象都可以有强制的和自已的属性.强制的属
性在每个对象建立时就产生了.

注意:如果IISWEBSERVER只列出了一些可选的属性，在参考IIS文档之前请不要建立一个新的WEB站
点的对象。ADSI对IIS的执行打破了这个规则。有一些必须的属性列在了可选的属性列表中。如果
你在建立一个WEB站点时没有对必要的属性进行设置，你的元数据库可能被破坏。

注意：ADSI不会在错误时停下了，它会继续前进
建立一个虚拟目录

在例五中我们将在默认的WEB站点下建立一个虚拟目录。我们将先列出一个虚拟目录的所有属性然
后再建立一个虚拟目录。为了列出一个目录的所有属性，我借用了例3的一些代码，只不过将站点
改成了虚拟目录，你必须知道必须的属性：我们要建立怎样的WEB服务器，它的名字，它的物理路
径，一旦你建立了一个虚拟目录后你再将它们的属性一一设置。例五讲了怎样利用这些。
Example 5

〈%
sComputer ="localhost"
sPhyDir = "c:adsi"
sVirDir = "ADSITest&quo