ASP controls the virtual host function ADSI

Source: Internet
Author: User
Tags cpu usage
Use ASP to set the maximum CPU usage of a specified site
'================================================ ============
'Function introduction: sets the maximum CPU usage of a specified site.
'This function uses ADSI and requires the permissions of the Administrators group.
'Function name: SetCPULimitVar (Computer, SiteNum, LimitVar)
'Usage: SetCPULimitVar computer name, site number, maximum limit value (100 = 1%, 1000 = 10%)
'Example: SetCPULimitVar "LocalHost", "2", "2000"
'================================================ ============
Function SetCPULimitVar (Computer, SiteNum, LimitVar)
Set MyObj001 = GetObject ("IIS: //" & Computer & "/W3SVC/" & SiteNum)
'Set CPU limit enabled
MyObj001.CpuLimitsEnabled = True
'Set the limit value
MyObj001.CpuLimitLogEvent = LimitVar
MyObj001.setinfo
Set MyObj001 = Nothing
End Function
Functions used to create a WEB site in IIS using ASP
'================================================ ======================================
'Function introduction: create a WebSite
'This function uses ADSI and requires the permissions of the Administrators group.
'Function name: CreateWebSite (Computer, IPAddr, PortNum, HostName, WebSiteDirectory, LogDirectory, WebSiteInfo, GuestUserName, GuestUserPass, StartOrStop)
'Usage: CreateWebSite computer name (LocalHost or 127.0.0.1), site IP address, port number, host name, site root directory, and site description of LOG file directory, the account used for website access, the password of the account used for website access, and whether to start the website
'Example: CreateWebSite "LocalHost", "127.0.0.123", "80", "www.test.net", "E: UserDataUserNum001", "E: UserDataUserNum001LogFiles", "wwwtest.net", "Example ", "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
'Check whether the W3SVC service (WEB service) can be loaded)
Set w3svc = GetObject ("IIS: //" & Computer & "/w3svc ")
Related Article

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.