' Kod przypisuje aplikacj do puli
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "<NazwaSerwera>"
strAppPoolName = "<NazwaPuliAplikacji>"
strApp = "<ciekaAplikacji>"        ' np. /W3SVC/1/Root/CGI
' ------ KONIEC KONFIGURACJI ---------

set objVirtualDir = GetObject("IIS://" & strComputer & strApp)
objVirtualDir.AppPoolId = strAppPoolName
objVirtualDir.SetInfo()
WScript.Echo "Aplikacj " & objApp.Name & " przypisano do puli " & strAppPoolName
