用ASP在IIS创建WEB站点

使用ASP在IIS创建WEB站点的函数2007-05-06 10:20使用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","www.test.net","E:UserDataUserNum001","E:UserDataUserNum001LogFiles","CnKnow.Com","IUSR_Num001_test.net","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" , UserN