'删除站点
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的站点;

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