ASP控制虛擬機器主機函數ADSI
來源：互聯網
上載者：User
使用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")
