'================================================='函數(shù)介紹：設(shè)置指定站點(diǎn)CPU最大使用程度'本函數(shù)使用ADSI，需要Administrators組用戶權(quán)限'函數(shù)名稱：SetCPULimitVar (Computer,SiteNum,LimitVar)'用法：SetCPULimitVar 計(jì)算機(jī)名，站點(diǎn)編號(hào)，最大限制值（100=1%，1000=10%）'例：SetCPULimitVar "LocalHost","2","2000"'=================================================Function SetCPULimitVar(Computer,SiteNum,LimitVar)Set MyObj001 = GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)'設(shè)置啟用CPU限制MyObj001.CpuLimitsEnabled = True'設(shè)置限制使用額度值MyObj001.CpuLimitLogEvent=LimitVarMyObj001.setinfoSet MyObj001=NothingEnd Function 

'============================================================='函數(shù)介紹：創(chuàng)建WebSite'本函數(shù)使用ADSI，需要Administrators組用戶權(quán)限'函數(shù)名稱：CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)'用法：CreateWebSite 計(jì)算機(jī)名(一搬為L(zhǎng)ocalHost或127.0.0.1),站點(diǎn)IP地址,端口號(hào),主機(jī)名,站點(diǎn)根目錄,,LOG文件的目錄站點(diǎn)說(shuō)明,網(wǎng)站訪問(wèn)時(shí)所使用的帳號(hào),網(wǎng)站訪問(wèn)時(shí)所用帳號(hào)的口令,是否啟動(dòng)站點(diǎn)'例：CreateWebSite "LocalHost","127.0.0.123","80","www.test.net","E:\UserData\UserNum001","E:\UserData\UserNum001\LogFiles","wwwtest.net","IUSR_Num001_test.net","abc888",True'=============================================================Function CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)Dim w3svc, WebServer, NewWebServer, NewDirDim Bindings, BindingString, NewBindings, SiteNum, SiteObj, bDoneOn Error Resume NextErr.Clear'檢測(cè)是否能夠加載W3SVC服務(wù)（即WEB服務(wù)）Set w3svc = GetObject("IIS://" & Computer & "/w3svc")If Err.Number <> 0 Then '顯示錯(cuò)誤提示  response.write "無(wú)法打開: "&"IIS://" & Computer & "/w3svc"  response.endEnd If'檢測(cè)是否有設(shè)定相同IP地址、端口及主機(jī)名的站點(diǎn)存在BindingString = IPAddr & ":" & PortNum & ":" & HostNameFor Each WebServer in w3svc  If WebServer.Class = "IIsWebServer" Then  Bindings = WebServer.ServerBindings   If BindingString = Bindings(0) Then    response.write "IP地址沖突:" & IPAddr & ",請(qǐng)檢測(cè)IP地址！."    Exit Function   End If  End IfNext'確定一個(gè)不存在的站點(diǎn)編號(hào)做為新建站點(diǎn)編號(hào)，系統(tǒng)默認(rèn)WebSite站點(diǎn)編號(hào)為1，因此從2開始SiteNum=2bDone = FalseWhile (Not bDone)Err.ClearSet SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&SiteNum) '加載指定站點(diǎn)If (Err.Number = 0) Then  'response.write " Step_1站點(diǎn)"&SiteNum&"存在"  SiteNum = SiteNum + 1Else  'response.write " Step_1站點(diǎn)"&SiteNum&"不存在"  Err.Clear  Set NewWebServer = w3svc.Create("IIsWebServer",SiteNum) '創(chuàng)建指定站點(diǎn)  If (Err.Number <> 0) Then   'response.write " Step_2站點(diǎn)"&SiteNum&"創(chuàng)建失敗"   SiteNum = SiteNum + 1  Else   'response.write " Step_2站點(diǎn)"&SiteNum&"創(chuàng)建成功"   bDone = True  End IfEnd IfIf (SiteNum > 50) Then '服務(wù)器最大創(chuàng)建站點(diǎn)數(shù)  response.write "超出服務(wù)器最大創(chuàng)建站點(diǎn)數(shù)，正在創(chuàng)建的站點(diǎn)的序號(hào)為： "&SiteNum&"."  response.endEnd IfWend'進(jìn)行站點(diǎn)基本配置NewBindings = Array(0)NewBindings(0) = BindingStringNewWebServer.ServerBindings = NewBindingsNewWebServer.ServerComment= WebSiteInfoNewWebServer.AnonymousUserName= GuestUserNameNewWebServer.AnonymousUserPass= GuestUserPassNewWebServer.KeyType = "IIsWebServer"NewWebServer.FrontPageWeb = TrueNewWebServer.EnableDefaultDoc = TrueNewWebServer.DefaultDoc = "Default.htm, Default.asp, Index.htm, Index.asp"NewWebServer.LogFileDirectory= LogDirectoryNewWebServer.SetInfoSet NewDir = NewWebServer.Create("IIsWebVirtualDir", "ROOT")NewDir.Path = WebSiteDirectoryNewDir.AccessRead = trueNewDir.AppFriendlyName = "應(yīng)用程序" & WebSiteInfoNewDir.AppCreate TrueNewDir.AccessScript = TrueErr.ClearNewDir.SetInfoIf (Err.Number <> 0) Then  response.write "主目錄創(chuàng)建時(shí)出錯(cuò)."  response.endEnd IfIf StartOrStop = True Then  Err.Clear  Set NewWebServer = GetObject("IIS://" & Computer & "/w3svc/" & SiteNum)  NewWebServer.Start  If Err.Number <> 0 Then   response.write "啟動(dòng)站點(diǎn)時(shí)出錯(cuò)!"   response.end   Err.Clear  End IfEnd Ifresponse.write "站點(diǎn)創(chuàng)建成功，站點(diǎn)編號(hào)為："& SiteNum &" ，域名為："& HostNameEnd Function

'============================================================='函數(shù)介紹：使用ASP啟動(dòng)/停止指定WEB站點(diǎn)'本函數(shù)使用ADSI，需要Administrators組用戶權(quán)限'函數(shù)名稱：AdminWebSite(Computer,WebSiteNum,DoWhat)'用法：AdminWebSite(計(jì)算機(jī)名稱,站點(diǎn)編號(hào),啟動(dòng)/停止)'例：?jiǎn)��?dòng)127.0.0.1計(jì)算機(jī)上站點(diǎn)編號(hào)為1的站點(diǎn)'AdminWebSite "127.0.0.1","1",1'例：停止127.0.0.1計(jì)算機(jī)上站點(diǎn)編號(hào)為1的站點(diǎn)'AdminWebSite "127.0.0.1","1",0'=============================================================Function AdminWebSite(Computer,WebSiteNum,DoWhat)On Error Resume NextSet objServer = GetObject("IIS://" & Computer & "/W3SVC/" & WebSiteNum)If Err.Number <> 0 Then  Response.Write Now & ". 錯(cuò)誤碼: " & Hex(Err)& " - " & "無(wú)法開啟指定站點(diǎn)<br>"End Ifif Dowhat=1 then'使用Start啟動(dòng)站點(diǎn)  objServer.Start  If Err.Number <> 0 Then   Response.Write "無(wú)法啟動(dòng)指定Web站點(diǎn)<br>"  else   Response.Write "已經(jīng)啟動(dòng)指定Web站點(diǎn)<br>"  End Ifelseif DoWhat=0 then  '使用Stop停止站點(diǎn)  objServer.Stop  If Err.Number <> 0 Then   Response.Write "無(wú)法停止指定Web站點(diǎn)<br>"  else   Response.Write "已經(jīng)停止指定Web站點(diǎn)<br>"  End Ifend ifEnd Function  

'============================================================='函數(shù)介紹：列出當(dāng)前服務(wù)器WEB站點(diǎn)信息'本函數(shù)使用ADSI，需要Administrators組用戶權(quán)限'函數(shù)名稱：ListWebSite (Computer,Num)'用法：ListWebSite (計(jì)算機(jī)名稱,顯示站點(diǎn)數(shù)量)'例：顯示127.0.0.1計(jì)算機(jī)上1000個(gè)站點(diǎn)信息'ListWebSite "127.0.0.1","1000"'=============================================================Function ListWebSite(Computer,Num)On Error Resume NextSet SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&i)for i=0 to Num  Err.Clear  if Err.Number=0 then   response.write "<p><b>以下顯示為計(jì)算機(jī)："&Computer&"上所有站點(diǎn)信息</b></p>"   ShowWebSite = SiteObj.Get("ServerBindings") '獲得站點(diǎn)IP地址:端口:主機(jī)頭   Info=split(ShowWebSite(0),":")   response.write "站點(diǎn)編號(hào)："&i&"<br>"   response.write "站點(diǎn)IP地址："&Info(0)&"<br>"   response.write "站點(diǎn)端口："&Info(1)&"<br>"   response.write "站點(diǎn)主機(jī)頭："&Info(2)&"<br><br>"  end ifnextset SiteOjb=nothingEnd Function  

'============================================================='函數(shù)介紹：刪除指定IIS站點(diǎn)'本函數(shù)使用ADSI，需要Administrators組用戶權(quán)限'函數(shù)名稱：DelWebSite (Computer,SiteNum)'用法：DelWebSite 計(jì)算機(jī)名，站點(diǎn)編號(hào)'例：DelWebSite "127.0.0.1","2"'=============================================================Function DelWebSite(Computer,SiteNum)Set W3SVC = GetObject("IIS://"&Computer&"/w3svc")W3SVC.delete "IIsWebServer",SiteNumresponse.write "刪除成功！"End Function

'============================================================='函數(shù)介紹：通過(guò)ASP管理NT帳號(hào)'本函數(shù)使用ADSI，需要Administrators組用戶權(quán)限'============================================================='填加用戶'函數(shù)用法：AddUser(Computer,UserName,PassWord,FullName,Info)'參數(shù)：計(jì)算機(jī)名,帳號(hào)名稱,帳號(hào)密碼,帳號(hào)全名,帳號(hào)說(shuō)明'例：AddUser "127.0.0.1","Test","Test","測(cè)試管理員帳號(hào)","本帳號(hào)通過(guò)ASP填加"'修改指定用戶基本信息'函數(shù)用法：EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)'參數(shù)：計(jì)算機(jī)名,帳號(hào)名稱,帳號(hào)密碼,帳號(hào)全名,帳號(hào)說(shuō)明'例：EditUser "127.0.0.1","Test","Test2","測(cè)試管理員帳號(hào)修改","本帳號(hào)通過(guò)ASP修改過(guò)"'刪除指定用戶'函數(shù)用法：DelUser(Computer,UserName)'參數(shù)：計(jì)算機(jī)名,用戶名''例：DelUser "127.0.0.1","Test"=============================================================Function AddUser(Computer,UserName,PassWord,FullName,Info)'執(zhí)行創(chuàng)建帳號(hào)命令Set ComputerObj = GetObject("WinNT://"&Computer)Set NewUser = ComputerObj.Create( "User" , UserName )NewUser.SetInfo'進(jìn)行帳號(hào)設(shè)置NewUser.SetPassword ( PassWord ) '帳號(hào)密碼NewUser.FullName = FullName '帳號(hào)全名NewUser.Description = Info '帳號(hào)說(shuō)明NewUser.UserFlags = &H10000 '&H20000(使用者下次登入時(shí)須變更密碼) &H0040(使用者不得變更密碼) &H10000(密碼永久正確) &H0002(帳戶暫時(shí)停用)NewUser.SetInforesponse.write "帳號(hào)"&UserName&"創(chuàng)建成功！"Set ComputerObj=nothingEnd Function Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)'讀取用戶信息Set ChangeUserObj = GetObject("WinNT://"&Computer&"/"&UserName&",User")'修改帳號(hào)密碼if PassWord<>"" then  ChangeUserObj.SetPassword PassWord  response.write "帳號(hào)密碼修改成功！<br>"end if'修改帳號(hào)全名if FullName<>"" then  UserFullName = ChangeUserObj.get("FullName")  ChangeUserObj.FullName = FullName  ChangeUserObj.SetInfo  response.write "帳號(hào)全名修改成功！<br>"end if'修改帳號(hào)說(shuō)明if Info<>"" then  UserFullName = ChangeUserObj.get("Description")  ChangeUserObj.Description = Info  ChangeUserObj.SetInfo  response.write "帳號(hào)說(shuō)明修改成功！<br>"end ifSet ChangeUserObj=nothingEnd FunctionFunction DelUser(Computer,UserName)Set DelUserObj = GetObject("WinNT://"&Computer&"/"&UserName)If Err = &H800401E4 Then  Response.Write "用戶"&UserName&"不存在"  Response.EndEnd IfSet DelObj = GetObject(DelUserObj.Parent)DelObj.Delete "User", DelUserObj.NameSet DelUserObj = NothingSet DelObj = NothingResponse.Write "刪除成功"End Function

Function AdminAegis(Computer,SiteNum)Set IIsWebServiceObj = GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)dim Aegis(1)Aegis(0)=".asp,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE"'Aegis(1)=".aspx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG"'解析其它文件請(qǐng)同樣使用Aegis(Num)=""這種格式，記得要將dim Aegis(Num)定義'.htw,C:\WINNT\system32\webhits.dll,3,GET,HEAD,POST'.ida,C:\WINNT\system32\idq.dll,7,GET,HEAD,POST'.idq,C:\WINNT\system32\idq.dll,7,GET,HEAD,POST'.asp,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE'.cer,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE'.cdx,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE'.asa,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE'.idc,C:\WINNT\system32\inetsrv\httpodbc.dll,5,GET,POST<br>'.shtm C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>'.shtml C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>'.stm C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>'.asax C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.ascx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.ashx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG'.asmx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG'.aspx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG'.axd,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG'.vsdisco,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG'.rem,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG'.soap,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG'.config,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.cs,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.csproj,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.vb,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.vbproj,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.webinfo,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.licx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.resx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG'.resources,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUGIIsWebServiceObj.ScriptMaps=AegisIIsWebServiceObj.SetInfo'顯示支持腳本語(yǔ)言response.write "當(dāng)前站點(diǎn)支持解析列表：<br>"For ValueIndex = 0 To UBound(IIsWebServiceObj.ScriptMaps)  response.write IIsWebServiceObj.Get("ScriptMaps")(ValueIndex)  response.write "<br>"NextEnd Function