用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