[點(diǎn)晴永久免費(fèi)OA]ADSI+ASP添加IP到IIS禁止訪問(wèn)列表中
代碼如下:
<%@ 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="確定發(fā)送"> </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>無(wú)數(shù)據(jù)，請(qǐng)先隨便加一條<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>無(wú)數(shù)據(jù)，請(qǐng)先隨便加一條<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>重復(fù)數(shù)據(jù)。<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 編輯過(guò) |
關(guān)鍵字查詢(xún)
相關(guān)文章
正在查詢(xún)... 
|
400 186 1886
