用vbs批量删除IIS站点的问题.

anwell 2007-01-04 10:48:12
'删除站点
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的站点;

请问有没有办法一次删除全部站点啊.
...全文
449 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
weiang_1983 2007-01-25
  • 打赏
  • 举报
回复
google一下.
anwell 2007-01-05
  • 打赏
  • 举报
回复
这里人气好差哦~

8,329

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 IIS
社区管理员
  • IIS
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧