ADSI操作IIS函数之设置应用程序池
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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文件的结构
AppPoolIdentityType="2"
CPUAction="0"
CPULimit="80000"
CPUResetInterval="5"
MaxProcesses="1"
PeriodicRestartMemory="812000"
PeriodicRestartPrivateMemory="593216"
PeriodicRestartTime="60"
>
怎样创建实例
接着设置他的属性
保存池的信息
上一篇: 域名别人能解析能ping通我自己不能
下一篇: ADSI操作IIS函数之添加MIME类型
目前这篇文章有4条评论(Rss)