' List Applications in an Application Pool
strComputer = "LocalHost"
Set objIIS = GetObject _
("IIS://" & strComputer & "/W3SVC/AppPools/MSSharePointAppPool")
arrApps = objIIS.EnumAppsInPool
For i = 0 to Ubound(arrApps)
Wscript.Echo arrApps(i)
Next