本文介绍使用ASP、VB、VBScript启动/停止IIS中指定WEB站点'============================================================='函数介绍:使用ASP启动/停止指定WEB站点'本函数使用ADSI,需要Administrators组用户权限'函数名称:AdminWebSite(Computer,WebSiteNum,DoWhat)'用法:AdminWebSite(计算机名称,站点编号,启动/停止)'例:启动127.0.0.1计算机上站点编号为1的站点'AdminWebSite "127.0.0.1","1",1'例:停止127.0.0.1计算机上站点编号为1的站点'AdminWebSite "127.0.0.1","1",0'=============================================================Function AdminWebSite(Computer,WebSiteNum,DoWhat)On Error Resume NextSet objServer = GetObject("IIS://" & Computer & "/W3SVC/" & WebSiteNum)If Err.Number <> 0 ThenResponse.Write Now & ". 错误码: " & Hex(Err)& " - " & "无法开启指定站点"End Ifif Dowhat=1 then'使用Start启动站点objServer.StartIf Err.Number <> 0 ThenResponse.Write "无法启动指定Web站点"elseResponse.Write "已经启动指定Web站点"End Ifelseif DoWhat=0 then'使用Stop停止站点objServer.StopIf Err.Number <> 0 ThenResponse.Write "无法停止指定Web站点"elseResponse.Write "已经停止指定Web站点"End Ifend ifEnd Function

03-15 17:04