' Modify Application Pools Health Properties


strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
    objItem.PingingEnabled = True
    objItem.PingInterval = 60
    objItem.RapidFailProtection = True
    objItem.RapidFailProtectionInterval = 10
    objItem.RapidFailProtectionMaxCrashes = 10
    objItem.ShutdownTimeLimit = 120
    objItem.StartupTimeLimit = 120
    objItem.Put_
Next
search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft