ASP controls the virtual host function ADSI

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 ")