用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的站点;!

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