以下函数使用ADSI，所以需要Administrators组用户权限才可以运行

一 删除指定IIS站点
Function DelWebSite(Computer,SiteNum)
Set W3SVC = GetObject("IIS://"&Computer&"/w3svc")
W3SVC.delete "IIsWebServer",SiteNum 
response.write "删除成功！"
End Function

二 列出所有用户组及用户
Function ListGroup(Computer)
response.write "<p><b>以下为计算机"&Computer&"系统用户组及用户列表</b></p>"
Set ComputerObj = GetObject("WinNT://"&Computer)
ComputerObj.Filter = Array("Group") 
 For Each Member in ComputerObj
   Response.Write "用户组："&Member.Name&"<br>"
   ListUser Computer,Member.Name 
 Next
end Function
'列出指定用户组用户
Function ListUser(Computer,Group)
Set UserObj = GetObject("WinNT://"&Computer&"/"&Group)
For Each Member in UserObj.Members
 Response.write "    组中用户："&Member.Name &"<br>"
Next
End Function

三 启动/停止指定IIS站点
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停止站点 编辑：qhtx.net
objServer.Stop
If Err.Number <> 0 Then
Response.Write "无法停止指定Web站点<br>"
else
Response.Write "已经停止指定Web站点<br>"
End If
end if
End Function

[1] [2] [3] 下一页