利用ADSI对IIS进行编程

´Get root of Default Web Site
set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root")

´Create Virtual Directory
Set vDir = vRoot.Create("IIsWebVirtualDir",sVirDir)

´Get local copy of object
vDir.GetInfo

Response.Write "Old Default Docs = " & vDir.DefaultDoc & "〈BR>"

´Only setting two properties
vDir.DefaultDoc = vDir.DefaultDoc & ",index.htm"

´Write information back to Metabase
vDir.SetInfo

´Get Object Again
vDir.GetInfo

Response.Write "New Default Docs = " & vDir.DefaultDoc
%>

在这个例子中，我们是用了objec.getinfo这个语句把信息取回的。它一次性把所有的信息都取回
了。然后我们用setinfo这个语句把信息重新设置了回去。

删除一个虚拟目录

在这个例子中，你将学习到如何删除一个虚拟目录。当建立一个对象时，你必须有它的父对象。这
个真理也同样适用于删除。例七表明了如何做。
Example 7

〈%
on error resume next

sComputer ="localhost"
sPhyDir = "c:dinaadsi"
sVirDir = "ADSITest"

´Get Default Web Site Object
set websvc = GetObject("IIS://" & sComputer & "/W3svc/1")

´Verify by printing out ServerComment
Response.Write "Comment = " & websvc.ServerComment & "〈br>"

´Get root of Default Web Site
set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root")

´Delete Virtual Directory
Set vDir = vRoot.Delete("IIsWebVirtualDir",sVirDir)
%>