[點晴永久免費OA]ADSI+ASP添加IP到IIS禁止訪問列表中
當前位置：點晴教程→點晴OA辦公管理信息系統
→『 經驗分享&問題答疑 』
代碼如下:
<%@ Language=VBscript %> <% Dim strIP strIP = request("IP") %> <FORM action=? method=post> 輸入IP：<input type=text value="<%=strIP%>" style="BORDER: #AAAAAA 1px solid;" name="IP"> <input type="submit" value="確定發送"> </FORM> <% if strIP="list" then Call ListDenyIP("2443") response.end end if if strIP="query" then Call CheckWebSiteSetup response.end end if # if strIP<>"" then Call AddDenyIP("2443",strIP) end if Sub CheckWebSiteSetup() Set IISOBJ=GetObject("IIS://LocalHost/W3SVC") for each website in IISOBJ if website.Class="IIsWebServer" then for each b in website.ServerBindings response.write ("Server "&Website.AdsPath" has binding"&b) response.write ("<br>") next end if next end sub # Sub ListDenyIP(strWebNo) set SecObj = GETObject("IIS://LocalHost/W3SVC/"+strWebNo+"/Root") set MyIPSec = SecObj.IPSecurity IPList=MyIPSec.IPDeny if ubound(IPList)<0 then response.write "<BR>無數據，請先隨便加一條<BR>" exit sub end if # intIPListCount=ubound(IPList)+1 # for i=0 to ubound(IPList) response.write i+1 response.write "：" response.write IPList(i) response.write "<br>" next end sub Sub AddDenyIP(strWebNo,strDenyIp) set SecObj = GETObject("IIS://LocalHost/W3SVC/"+strWebNo+"/Root") set MyIPSec = SecObj.IPSecurity ' Make sure GrantByDefault=TRUE or your changes will not count. If (FALSE = MyIPSec.GrantByDefault) Then Response.Write "<BR>GrantByDefault was not TRUE. Setting to TRUE.<BR>" MyIPSec.GrantByDefault = TRUE End If IPList=MyIPSec.IPDeny if ubound(IPList)<0 then response.write "<BR>無數據，請先隨便加一條<BR>" exit sub end if # intIPListCount=ubound(IPList)+1 # for i=0 to ubound(IPList) if strDenyIp = left(IPList(i),len(strDenyIp)) then response.write "<BR>重復數據。<BR>" exit sub end if next redim Preserve IPList(intIPListCount) IPList(intIPListCount)=strDenyIp response.write "新添加：" response.write strDenyIp response.write "<br>" MyIPSec.IPDeny = IPList SecObj.IPSecurity = MyIPSec SecObj.Setinfo end sub %> 該文章在 2022/6/21 21:22:07 編輯過 |
關鍵字查詢
相關文章
正在查詢... 
|
400 186 1886
