ASP控制虚拟主机函数ADSI

　　使用ASP设置指定站点CPU最大使用程度
=================================================
函数介绍：设置指定站点CPU最大使用程度
本函数使用ADSI，需要Administrators组用户权限
函数名称：SetCPULimitVar (Computer,SiteNum,LimitVar)
用法：SetCPULimitVar 计算机名，站点编号，最大限制值（100=1%，1000=10%）
例：SetCPULimitVar LocalHost,2,2000
=================================================
Function SetCPULimitVar(Computer,SiteNum,LimitVar)
Set MyObj001 = GetObject(IIS://Computer/W3SVC/SiteNum)
设置启用CPU限制
MyObj001.CpuLimitsEnabled = True
设置限制使用额度值
MyObj001.CpuLimitLogEvent=LimitVar
MyObj001.setinfo
Set MyObj001=Nothing
End Function

　　使用ASP在IIS创建WEB站点的函数
=============================================================
函数介绍：创建WebSite
本函数使用ADSI，需要Administrators组用户权限
函数名称：CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
用法：CreateWebSite 计算机名(一搬为LocalHost或127.0.0.1),站点IP地址,端口号,主机名,站点根目录,,LOG文件的目录站点说明,网站访问时所使用的帐号,网站访问时所用帐号的口令,是否启动站点
例：CreateWebSite LocalHost,127.0.0.123,80,
=============================================================
Function CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
Dim w3svc, WebServer, NewWebServer, NewDir
Dim Bindings, BindingString, NewBindings, SiteNum, SiteObj, bDone
On Error Resume Next
Err.Clear
检测是否能够加载W3SVC服务（即WEB服务）
Set w3svc = GetObject(IIS:// Computer /w3svc)
If Err.Number <> 0 Then 显示错误提示
response.write 无法打开: IIS:// Computer /w3svc
response.end
End If
检测是否有设定相同IP地址、端口及主机名的站点存在
BindingString = IPAddr : PortNum : HostName
For Each WebServer in w3svc
If WebServer.Class = IIsWebServer Then
Bindings = WebServer.ServerBindings
If BindingString = Bindings(0) Then
response.write IP地址冲突: IPAddr ,请检测IP地址！.
Exit Function
End If
End If
Next

　　
确定一个不存在的站点编号做为新建站点编号，系统默认WebSite站点编号为1，因此从2开始
SiteNum=2
bDone = False
While (Not bDone)
Err.Clear
Set SiteObj = GetObject(IIS://Computer/w3svc/SiteNum) 加载指定站点
If (Err.Number = 0) Then
response.write Step_1站点SiteNum存在
SiteNum = SiteNum + 1
Else
response.write Step_1站点SiteNum不存在
Err.Clear
Set NewWebServer = w3svc.Create(IIsWebServer,SiteNum) 创建指定站点
If (Err.Number <> 0) Then
response.write Step_2站点SiteNum创建失败
SiteNum = SiteNum + 1
Else
response.write Step_2站点SiteNum创建成功
bDone = True
End If
End If
If (SiteNum > 50) Then 服务器最大创建站点数
response.write 超出服务器最大创建站点数，正在创建的站点的序号为： SiteNum.
response.end
End If
Wend

　　
进行站点基本配置
NewBindings = Array(0)
NewBindings(0) = BindingString
NewWebServer.ServerBindings = NewBindings
NewWebServer.ServerComment= WebSiteInfo
NewWebServer.AnonymousUserName= GuestUserName
NewWebServer.AnonymousUserPass= GuestUserPass
NewWebServer.KeyType = IIsWebServer
NewWebServer.FrontPageWeb = True
NewWebServer.EnableDefaultDoc = True
NewWebServer.DefaultDoc = Default.htm, Default.asp, Index.htm, Index.asp
NewWebServer.LogFileDirectory= LogDirectory
NewWebServer.SetInfo
Set NewDir = NewWebServer.Create(IIsWebVirtualDir, ROOT)
NewDir.Path = WebSiteDirectory
NewDir.AccessRead = true
NewDir.AppFriendlyName = 应用程序 WebSiteInfo
NewDir.AppCreate True
NewDir.AccessScript = True
Err.Clear
NewDir.SetInfo
If (Err.Number <> 0) Then
response.write 主目录创建时出错.
response.end
End If
If StartOrStop = True Then
Err.Clear
Set NewWebServer = GetObject(IIS:// Computer /w3svc/ SiteNum)
NewWebServer.Start
If Err.Number <> 0 Then
response.write 启动站点时出错!
response.end
Err.Clear
End If
End If
response.write 站点创建成功，站点编号为： SiteNum ，域名为： HostName
End Function

　　
使用ASP启动/停止指定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 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
使用ASP列出服务器WEB站点信息