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"

>