用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一下.
