使用ASP删除指定IIS站点

1. =============================================================  
2. '       感谢您使用ASPKU工作室开发的实用函数程序  
3. '               HTTP://WWW.ASPKU.NET  
4. '=============================================================       
5. 'ASPKU工作室为您提供订制程序开发、企业互联网拓展服务  
6. 'QQ： 
7. 'E-Mail：
8. '更多程序下载请到HTTP://WWW.ASPKU.NET  
9. '=============================================================       
10. '函数介绍：删除指定IIS站点  
11. '本函数使用ADSI，需要Administrators组用户权限  
12. '函数名称：DelWebSite (Computer,SiteNum)  
13. '程序开发：ASPKU工作室 ChuQi  
14. '用法：DelWebSite 计算机名，站点编号  
15. '例：DelWebSite "127.0.0.1","2"  
16.  
17. '=============================================================  
18.  
19. Function DelWebSite(Computer,SiteNum)  
20. Set W3SVC = GetObject("IIS://"&Computer&"/w3svc")  
21. W3SVC.delete "IIsWebServer",SiteNum   
22. response.write "删除成功！"  
23. End Function