IIS6 configuration with vbs, set "Recyling working processes" property   

Hi,
I have a vbs script wich makes a new application pool in IIS6, named test:

Option Explicit

dim basepath         :   basepath = "IIS://localhost/w3svc/1/root"
dim AppPoolName      :   AppPoolName = "test"


if CreateNewAppPool(AppPoolName) = false then
   WScript.Echo "Error creating AppPool "
   WScript.Quit
end if


function CreateNewAppPool(AppPoolName)
   dim AppPools, newAppPool
   set AppPools = GetObject("IIS://localhost/w3svc/AppPools")
   set newAppPool = AppPools.Create("IIsApplicationPool", AppPoolName)
      newAppPool.LogonMethod =1
   newAppPool.AppPoolIdentityType=3
   newAppPool.SetInfo
   if err = 0 then
      CreateNewAppPool = True
   else
      CreateNewAppPool = false
   end if
end function

How is it possible to set the pool
"Recycle workin processes" to some value eg. 60 minutes with vbs script ?

Regards
Jarmo

date: Wed, 21 Dec 2005 15:09:24 GMT   author:   jarmopy