========================================================== ==================================
'Thank you for using the utility program developed by ASP001 studio.
'Http: // WWW. ASP001.NET
'================================================ ======================================
'Asp001 Studio provides customized program development and enterprise Internet expansion services for you
'Qq: 1974229
'E-mail: Shenyangchuqi@tom.com
'Download more programs at HTTP: // WWW. ASP001.NET.
'================================================ ======================================
'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)
'Program development: ASP001 studio ChuQi
'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
