中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

中国DOS联盟论坛
现在时间是 2026-08-09 06:22

共 47,811 主题排行 / 349,895 发帖 / 今日 0 篇 / 48,253 会员排行

第1楼　lfzzj	发表于 2008-07-26 23:17
初级用户　发帖 56　积分 159
这个函数为什么执行出来什么任何结果 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