' Kod tworzy pul aplikacji
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "<NazwaSerwera>"
strAppPoolName = "<NazwaPuliAplikacji>"
' ------ KONIEC KONFIGURACJI ---------

set objAppPools = GetObject("IIS://" & strComputer & "/w3svc/AppPools")
set objNewAppPool = objAppPools.Create("IIsApplicationPool", strAppPoolName)

' Ponowne uycie puli aplikacji po kadych 2000 da
objNewAppPool.AppPoolRecycleRequests = True 
objNewAppPool.PeriodicRestartRequests = 2000

' Uruchomienie puli aplikacji przy uyciu tosamoci Usuga sieciowa (podobnie jak w przypadku
' domylnej puli)
objNewAppPool.AppPoolIdentityType = 2

' Zapisanie nowej puli aplikacji
objNewAppPool.SetInfo()

WScript.Echo "Z powodzeniem utworzono pul aplikacji: " & objNewAppPool.Name
