日期:2014-05-16  浏览次数:21352 次

用vbs批量删除IIS站点的问题.
'删除站点
Sub   DeleteWebSite()
'批量删除IIS站点
'Create   by   01/04/2007
On   Error   Resume   Next
server.timeout   =   900
Set   w3svc   =   GetObject( "IIS://localhost/w3svc ")   '建立IIS对象
For   Each   ChildObject   In   w3svc
ChildObjectName   =   Replace(ChildObject.AdsPath,   Left(ChildObject.AdsPath,   22),   " ")   '过滤掉IIS虚拟路径前面的字符,把最后一位,也就是站点ID号取出来
If   IsNumeric(ChildObjectName)   =   True   Then
'wscript.echo   "Deleteing     "   &   ChildObject.AdsPath   &   ",站点ID为: "&ChildObjectName& ",   OK! "
ChildObject.stop
w3svc.Delete   "IIsWebServer ",   ChildObjectName
wscript.echo   "Deleteing     "   &   ChildObject.AdsPath   &   ",   OK! "
End   If
Next
set   w3svc=nothing
End   Sub

这是代码,我的电脑上有   18个站点
我要连续运行该文件几次才可以全部删除所有站点.
第一次删除了ID为     1,3,5,7,9,11,13,15,17的站点;
第二次删除了ID为     2,6,10,14,18的站点;
第三次删除了ID为4,12的站点;
第四次删除了ID为8的站点;
第五次删除了ID为16的站点;

请问有没有办法一次删除全部站点啊.

------解决方案--------------------
google一下.