虚拟主机教程

Set objAppPool = GetObject("IIS://localhost/W3SVC/AppPools/online")
objAppPool.Start()  '启动=Start，停止=Stop，回收=??

Set objAppPools = GetObject("IIS://localhost/W3SVC/AppPools")
for each objAppPool in objAppPools
    WScript.echo objAppPool.Name '显示IIS上所有池
next

Set objAppPool = GetObject("IIS://localhost/W3SVC/AppPools/online")
Applications = objAppPool.EnumAppsInPool()
for index = 0 to UBound(Applications)
    WScript.echo Applications(index) '枚举池中的站点root
next

Set objAppPools = GetObject("IIS://localhost/W3SVC/AppPools")
Set objAppPool = objAppPools.Create("IIsApplicationPool", strAppPool)
objAppPool.SetInfo'创建一个进程池