标题: 这个函数为什么执行出来什么任何结果 [打印本页]

---

作者: lfzzj     时间: 2008-7-26 23:17    标题: 这个函数为什么执行出来什么任何结果

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

---

作者: lfzzj     时间: 2008-7-27 02:24
感谢 已经解决