网站地图
【www.gdgbn.com--php函数】
使用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","www.test.net","E:UserDataUserNum001","E:UserDataUserNum001LogFiles","wwwtest.net","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")