列出inno setup中的所有应用程序池

Question

我正在使用Inno安装程序为ASP.net应用程序创建安装程序。我想在系统中有一个包含所有应用程序池的组合框。我发现下面的代码部分让所有的应用程序池：

IIS := CreateOleObject('IISNamespace'); 
appPools := IIS.GetObject('IIsApplicationPools', 'localhost/W3SVC/AppPools'); 

我还发现如何让单个特定的应用程序池，但我无法弄清楚如何通过这个appPools迭代。

Answer 1

我找到了解决方案。它需要使用名为WMI的外部程序包。它可以从http://www.vincenzo.net/isxkb/index.php?title=WMI下载。 Heere是一个完整的代码：

appPools := IIS.GetObject('IIsApplicationPools', 'localhost/W3SVC/AppPools'); 

IISPoolIndex := 1; 

WebSite := IIS.GetObject('IIsWebService', 'localhost' + '/w3svc'); 
// GetObject structure: Schema, NextName of data 
tVariants := ComEnumerate(WebSite.GetObject('IIsApplicationPools', 'AppPools')); 
For i := 0 to GetArrayLength (tVariants) - 1 do 
begin 
// ComboBox with Application Pool Names 
AppPoolsComboBox.Items.Add(tVariants[i].Name); 
end;