使用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,
abc888,True
==================================================
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设置指定站点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启动/停止指定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站点信息

　　程序代码：

　　
=====================================================
函数介绍：列出当前服务器WEB站点信息
本函数使用ADSI，需要Administrators组用户权限
函数名称：ListWebSite (Computer,Num)
用法：ListWebSite (计算机名称,显示站点数量)
例：显示127.0.0.1计算机上1000个站点信息
ListWebSite 127.0.0.1,1000
====================================================
Function ListWebSite(Computer,Num)
On Error Resume Next
Set SiteObj = GetObject(IIS://&Computer&/w3svc/&i)
for i=0 to Num
Err.Clear
if Err.Number=0 then
response.write <p><b>以下显示为计算机：&Computer&上所有站点信息</b></p>
ShowWebSite = SiteObj.Get(ServerBindings) 获得站点IP地址:端口:主机头
Info=split(ShowWebSite(0),:)
response.write 站点编号：&i&<br>
response.write 站点IP地址：&Info(0)&<br>
response.write 站点端口：&Info(1)&<br>
response.write 站点主机头：&Info(2)&<br><br>
end if
next
set SiteOjb=nothing
End Function

　　使用ASP删除指定IIS站点

　　程序代码：

　　
======================================================
函数介绍：删除指定IIS站点
本函数使用ADSI，需要Administrators组用户权限
函数名称：DelWebSite (Computer,SiteNum)
用法：DelWebSite 计算机名，站点编号
例：DelWebSite 127.0.0.1,2
======================================================
Function DelWebSite(Computer,SiteNum)
Set W3SVC = GetObject(IIS://&Computer&/w3svc)
W3SVC.delete IIsWebServer,SiteNum
response.write 删除成功！
End Function

　　
通过ASP管理NT帐号

　　程序代码：

　　
=======================================================
函数介绍：通过ASP管理NT帐号
本函数使用ADSI，需要Administrators组用户权限
====================================================
填加用户
函数用法：AddUser(Computer,UserName,PassWord,FullName,Info)
参数：计算机名,帐号名称,帐号密码,帐号全名,帐号说明
例：AddUser 127.0.0.1,Test,Test,测试管理员帐号,本帐号通过ASP填加
修改指定用户基本信息
函数用法：EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
参数：计算机名,帐号名称,帐号密码,帐号全名,帐号说明
例：EditUser 127.0.0.1,Test,Test2,测试管理员帐号修改,本帐号通过ASP修改过
删除指定用户
函数用法：DelUser(Computer,UserName)
参数：计算机名,用户名
例：DelUser 127.0.0.1,Test
========================================================
Function AddUser(Computer,UserName,PassWord,FullName,Info)
执行创建帐号命令
Set ComputerObj = GetObject(WinNT://&Computer)
Set NewUser = ComputerObj.Create( User , UserName )
NewUser.SetInfo
进行帐号设置
NewUser.SetPassword ( PassWord ) 帐号密码
NewUser.FullName = FullName 帐号全名
NewUser.Description = Info 帐号说明
NewUser.SetInfo
response.write 帐号&UserName&创建成功！
Set ComputerObj=nothing
End Function

　　Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
读取用户信息
Set ChangeUserObj = GetObject(WinNT://&Computer&/&UserName&,User)
修改帐号密码
if PassWord<> then
ChangeUserObj.SetPassword PassWord
response.write 帐号密码修改成功！<br>
end if
修改帐号全名
if FullName<> then
UserFullName = ChangeUserObj.get(FullName)
ChangeUserObj.FullName = FullName
ChangeUserObj.SetInfo
response.write 帐号全名修改成功！<br>
end if
修改帐号说明
if Info<> then
UserFullName = ChangeUserObj.get(Description)
ChangeUserObj.Description = Info
ChangeUserObj.SetInfo
response.write 帐号说明修改成功！<br>
end if
Set ChangeUserObj=nothing
End Function

　　Function DelUser(Computer,UserName)
Set DelUserObj = GetObject(WinNT://&Computer&/&UserName)
If Err = &H800401E4 Then
Response.Write 用户&UserName&不存在
Response.End
End If
Set DelObj = GetObject(DelUserObj.Parent)
Set DelUserObj = Nothing
Set DelObj = Nothing
Response.Write 删除成功
End Function

　　
使用ASP控制指定站点解析脚本语言函数

　　程序代码：

　　
Function AdminAegis(Computer,SiteNum)
Set IIsWebServiceObj = GetObject(IIS://&Computer&/W3SVC/&SiteNum)
dim Aegis(1)
Aegis(0)=.asp,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
Aegis(1)=.aspx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
解析其它文件请同样使用Aegis(Num)=这种格式，记得要将dim Aegis(Num)定义
.htw,C:WINNTsystem32webhits.dll,3,GET,HEAD,POST
.ida,C:WINNTsystem32idq.dll,7,GET,HEAD,POST
.idq,C:WINNTsystem32idq.dll,7,GET,HEAD,POST
.asp,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
.cer,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
.cdx,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
.asa,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
.idc,C:WINNTsystem32inetsrvhttpodbc.dll,5,GET,POST<br>
.shtm C:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>
.shtml C:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>
.stm C:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>
.asax C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,
DEBUG
.ascx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
.ashx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
.asmx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
.aspx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
.axd,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
.vsdisco,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
.rem,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
.soap,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
POST,DEBUG
.cs,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
.csproj,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
.vb,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
.vbproj,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
.webinfo,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
.licx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
.resx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
.resources,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,
HEAD,POST,DEBUG
IIsWebServiceObj.ScriptMaps=Aegis
IIsWebServiceObj.SetInfo
显示支持脚本语言
response.write 当前站点支持解析列表：<br>
For ValueIndex = 0 To UBound(IIsWebServiceObj.ScriptMaps)
response.write IIsWebServiceObj.Get(ScriptMaps)(ValueIndex)
response.write <br>
Next
End Function

　　
使用ASP列出NT用户组及用户

　　程序代码：

　　
=======================================================
函数介绍：列出NT用户组及用户
本函数使用ADSI，需要Administrators组用户权限
函数名称：ListGroup(Computer)
用法：ListGroup(计算机名称)
例：显示127.0.0.1计算机NT用户组及用户
ListGroup 127.0.0.1
=======================================================
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)
Response.write 组中用户：&Member.Name &<br>
Next
End Function

　　IIS 提供了 IIS Admin Objects，让用户可以通过程序来管理IIS。IIS Admin Objects 基于 Microsoft Active Directory Service Interfaces (ADSI)。任何支持 Automation 的编程语言，如 ASP 中的 VBScript/JScript，Visual Basic, Java, 或 C++ 都能使用它。
您可以参考以下的 ASP 示例程序来修改 IIS 默认站点的地址：
<%
Set IISOBJ = GetObject(IIS://MyServer/w3svc/1/root)
IISOBJ.Path = D:newroot
IISOBJ.SetInfo
Set IISOBJ=Nothing
%>
注意：用户必须要对 IIS Metabase 有足够的权限。
关于如何用程序来管理 IIS，您可以到 MSDN 参考以下的文章：
Administering IIS Programmatically

阅读全文(55) 回复(0) 引用通告(0) 编辑