ADSI操作IIS函数之设置应用程序池
作者：佚名 时间：2012-04-13
Dim w3svc,WebServer
'如果要设置单站的调用方法，参数1表示站点号
Call setAppPool (1)
'如果要设置所有，那么调用时用这段 ————————————
Set w3svc = GetObject("IIS://localhost/W3SVC")
For Each WebServer In w3svc
If WebServer.Class = "IIsWebServer" Then
Call setAppPool (WebServer.Name)
end if
Next
'————————————————————————————
WScript.Echo "完成"
Sub setAppPool(siteid) '设置IIS站点所在池的主要函数
Set ServerRoot = GetObject("IIS://localhost/W3SVC/" & siteid & "/ROOT")
ServerRoot.Put "AppPoolId", "DefaultAppPool" '后面参数是池的名字
ServerRoot.SetInfo
End Sub接下来说怎么设置池的各项参数，先看看MetaBase.xml文件的结构
AppPoolAutoStart="TRUE"
AppPoolIdentityType="2"
CPUAction="0"
CPULimit="80000"
CPUResetInterval="5"
MaxProcesses="1"
PeriodicRestartMemory="812000"
PeriodicRestartPrivateMemory="593216"
PeriodicRestartTime="60"
>
