IIS 5.1：以编程方式创建虚拟子目录答案

【问题标题】：IIS 5.1: Programmatically Create Virtual Sub-DirectoryIIS 5.1：以编程方式创建虚拟子目录
【发布时间】：2010-09-29 20:18:07
【问题描述】：

背景

我正在尝试根据现有虚拟目录及其子目录的位置自动创建虚拟目录。

例子：

C:\WebSites\Parent\NewVirtualDirectories

其中 Parent 是一个虚拟目录，而 NewVirtualDirectories 包含任何自动虚拟目录。

问题

使用以下代码：

Option Explicit
Dim args, strComputer, strVdirName, strVdirPath, objVdir, objIIS, objWebSite

Set args = WScript.Arguments

strComputer = "localhost" 
strVdirName = args(1) 
strVdirPath = args(0) 

Set objIIS = GetObject("IIS://" & strComputer & "/W3SVC/1") 
Set objWebSite = objIIS.GetObject("IISWebVirtualDir","Root/Parent") 
Set objVdir = objWebSite.Create("IISWebVirtualDir",strVdirName) 
objVdir.AccessRead = True 
objVdir.Path = strVdirPath 
objVdir.AppCreate (True) 
objVdir.SetInfo 

WScript.Quit

我可以在父项下创建子项，但它们直接显示在父项下。我需要它们在子文件夹中。

我得到：http://localhost/Parent/NewSite

我要：http://localhost/Parent/NewVirtualDirectories/NewSite

我试过了

Set objWebSite = objIIS.GetObject("IISWebVirtualDir","Root/Parent/NewVirtualDirectories")

但 NewVirtualDirectories 不是虚拟目录（我不希望它是），所以我收到错误消息。当我在 IIS 管理器中手动执行此操作时，我可以获得预期的效果，但我不知道如何自动化它。

任何帮助将不胜感激。

【问题讨论】：

标签： iis vbscript automation

【解决方案1】：

编辑

对于那些面临类似问题的人，我找到了一个很好的 VBScript-ing 资源

http://www.cruto.com/resources/vbscript/vbscript-examples/vbscript-sitemap.asp

在进行了更多的挖掘（反复试验）之后，我能够弄清楚。

通过将现有文件夹引用为 IISWebDirectory，我能够选择它然后创建应用程序，而无需创建虚拟目录。

Option Explicit
Dim args, strComputer, strVdirName, strVdirPath, objVdir, objIIS, objWebSite

Set args = WScript.Arguments

strComputer = "localhost" 
strVdirName = args(1) 
strVdirPath = args(0) 

Set objIIS = GetObject("IIS://" & strComputer & "/W3SVC/1") 
Set objVdir = objIIS.GetObject("IISWebDirectory","Root/Parent/NewVirtualDirectories/" + strVdirName)
objVdir.AccessRead = True 
objVdir.AccessScript = True 
objVdir.AppFriendlyName = strVdirName 
objVdir.AppCreate (True) 
objVdir.SetInfo 

WScript.Quit

【讨论】：