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

我最近遇到了一个类似的问题,决定只修改一点vbscript,以便在msi安装程序的自定义操作中使用。要弄清楚adsutil.vbs是如何工作的,可能需要一点时间,但它编写得非常好。例如,我需要将应用程序池切换到Classic而不是Integrated模式,并在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

JShumaker's answer 解决这个问题。最好的方法似乎是调用以下InstallScript函数来运行批处理脚本:

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

批处理脚本调用以下命令:

@echo off
cscript.exe SetIISValues.vbs

VBScript如下所示:

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

这样做可以免除在安装过程中使用ADSUTIL.VBS的需要-如果您不需要使用它,那么它的(相对)路径是不相关的。