iisapp1 70875213
Function iisapp1(test)
dim Applications, objAppPool, index
On Error Resume Next
set objAppPool = GetObject("IIS://localhost/W3SVC/AppPools/test")
WScript.echo objAppPool.Name
Applications = objAppPool.EnumAppsInPool()
for index = 0 to UBound(Applications)
WScript.echo Applications(index)
next
End Function
Function iisapp1(test)
dim Applications, objAppPool, index
On Error Resume Next
set objAppPool = GetObject("IIS://localhost/W3SVC/AppPools/test")
WScript.echo objAppPool.Name
Applications = objAppPool.EnumAppsInPool()
for index = 0 to UBound(Applications)
WScript.echo Applications(index)
next
End Function