用asp,vbs设置iis站点池AppPool

作者：佚名   时间：2012-04-13   分享到：

代码见内页
收集了设置池创建池的函数，我都不知道这些资料为什么那么难找，如果对你有用希望顶一下。
1)用程序方式去设置IIS站点池信息，win2003上测试通过，转载请注明suntw.com
2)接下来学习创建一个池并设置属性
 用程序方式去设置IIS站点池信息，win2003上测试通过，转载请注明suntw.com
'============================================================function SetAppPoolSetting(AppPoolName,Values)
 SetAppPoolSetting=false
 Set apps=GetObject("IIS://localhost/w3svc/AppPools/"&AppPoolName)
 SetValue=split(Values,"|")
 apps.CpuLimit=int(SetValue(1))*1000'最大CPU百分比 apps.CPUAction=SetValue(2)'超过处理方式0忽略1关闭 apps.PeriodicRestartMemory=int(SetValue(3))*1024'虚拟内存 apps.PeriodicRestartPrivateMemory=int(SetValue(4))*1024'物理内存 apps.PeriodicRestartTime=SetValue(5)'回收时间 apps.SetInfo
 set apps=nothing
 SetAppPoolSetting=true
end function
 
'接下来学习创建一个池并设置属性'================================================================function CreateAppPool(NewAppPoolName)
    Set AppPools = GetObject("IIS://localhost/W3SVC/AppPools")
    set NewPool = AppPools.Create("IIsApplicationPool", NewAppPoolName)
    NewPool.AppPoolIdentityType = 2'预定义账户0本地系统1本地服务2网络服务    'NewPool.MaxProcesses = 1'不知道    NewPool.PeriodicRestartMemory = 512 * 1000 '最大虚拟内存使用值    NewPool.PeriodicRestartPrivateMemory = 500 * 1000 '500物理内存限制'    NewPool.CPUAction = 0'超过CPU不操作，1就是超过cpu就关闭。    NewPool.CPULimit = "80000"'最大80%的CPU    NewPool.PeriodicRestartTime = 180'内存回收时间(分钟)    NewPool.CPUResetInterval = 2'刷新CPU使用率值(分钟)    NewPool.AppPoolAutoStart = true'自动启动此池    NewPool.SetInfo
    Set AppPools = nothing
    set NewPool = nothing
    if err.number=0 then CreateAppPool=true
end function