如何找到 C:\Inetpub\AdminScripts\ADSUTIL.VBS 的相对路径？

Question

IIS 6 及更早版本附带一个名为 ADSUTIL.VBS：

Adsutil.vbs 是 IIS 管理 使用 Microsoft Visual 的实用程序 基础脚本版 (VBScript) 与活动目录服务 接口（ADSI）来操纵 IIS 配置。 这个脚本应该 使用 CScript 运行，即 与 Windows 脚本宿主一起安装。

换句话说，此工具可让您更改 IIS 元数据库< /a> 从命令行以编程方式设置。

我想从 InstallShield 项目调用此工具，以便对 IIS 进行一些配置更改。 我很好奇重新分发脚本是否合法（源代码中没有合法的措辞）或简单地通过以下方式启动命令：

CSCRIPT %SYSTEMDRIVE%\Inetpub\AdminScripts\adsutil.vbs

并希望脚本存在于磁盘上的该位置。

所以我的问题是 - 即使计算机上的某些其他网站（inetpub 根）位于非系统驱动器上，它是否始终存在于上面的路径中？ 似乎所有引用 ADSUTIL 工具的 MSDN 和其他 Microsoft 知识库文章都是通过使用上面的 %SYSTEMDRIVE% 路径来实现的。

我看到至少另一种尝试来处理这个问题通过将 cscript.exe 和 adsutil.vbs 与其 InstallShield 项目一起分发。

也许有注册表项或其他方法来获取 Inetpub\AdminScripts 路径的位置？

也许我应该编写一个 C# 应用程序来更改值 或 我自己的 VBScript 并分发用我自己的小应用程序代替？

Answer 1

我在JShumaker的答案< /a> 来解决问题。 最好的路线似乎是我调用来运行批处理脚本的以下 InstallScript 函数：

prototype SetIISValues();   
function SetIISValues()  
    string szProgram, szCmd;
begin                              
    szProgram = TARGETDIR + "SetIISValues.bat";
    szCmd = "";  
    LaunchAppAndWait (szProgram, szCmd, LAAW_OPTION_WAIT);
end; 

批处理脚本调用此： VBScript

@echo off
cscript.exe SetIISValues.vbs

如下所示：

Option Explicit
Dim IIsObject
Set IIsObject = GetObject("IIS://localhost/w3svc/1")
IIsObject.Put "Name", "Value"
IIsObject.Setinfo

这样做可以减轻在安装过程中使用 ADSUTIL.VBS 的需要 -如果您不需要使用它，则它的（相对）路径是无关紧要的。

Answer 2

我最近遇到了类似的问题，决定重新编写一小部分 vbscript，以便在 msi 安装程序中的自定义操作中使用。 可能需要一些时间才能弄清楚 adsutil.vbs 的核心工作原理，但它写得非常好。 例如，我需要将应用程序池切换到经典模式而不是集成模式，并明确将其设置为在 64 位 Windows 上运行时以 32 位模式运行，以精炼形式，这会导致以下结果：

Option Explicit

Dim IIsObject
Set IIsObject = GetObject("IIS://LocalHost/W3SVC/AppPools/TestPool")
IIsObject.Put "ManagedPipelineMode", 1
IIsObject.Setinfo
IIsObject.Put "Enable32BitAppOnWin64", CBool("True")
IIsObject.Setinfo