使用ASP启动/停止指定WEB站点

=============================================================
'       感谢您使用asp001工作室开发的实用函数程序
'               http://www.asp001.net
'=============================================================     'asp001工作室为您提供订制程序开发、企业互联网拓展服务
'qq：1974229
'e-mail：[e-mail]
'更多程序下载请到http://www.asp001.net
'=============================================================     
'函数介绍：使用asp启动/停止指定web站点
'本函数使用adsi，需要administrators组用户权限
'函数名称：adminwebsite(computer,websitenum,dowhat)
'程序开发：asp001工作室 chuqi
'用法：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 next
set objserver = getobject("iis://" & computer & "/w3svc/" & websitenum)
if err.number <> 0 then
response.write now & ". 错误码: " & hex(err)& " - " & "无法开启指定站点<br>"
end if 
if dowhat=1 then
'使用start启动站点
objserver.start
if err.number <> 0 then
response.write "无法启动指定web站点<br>"
else
response.write "已经启动指定web站点<br>"
end if
elseif dowhat=0 then
'使用stop停止站点
objserver.stop
if err.number <> 0 then
response.write "无法停止指定web站点<br>"
else
response.write "已经停止指定web站点<br>"
end if
end if
end function