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"
>
