注: 実行される ASP ファイルには管理者権限が必要です。次のようにコードをコピーします。
<%@ 言語=VBScript %>
<%
ディムストリプ
strIP = リクエスト(IP)
%>
<フォームアクション=?メソッド=ポスト>
入力 IP: <入力タイプ = テキスト値 = <%=strIP%> スタイル = BORDER: #AAAAAA 1px ソリッド名 = IP>
<入力タイプ=送信値=送信を確認>
</FORM>
<%
strIP=リストの場合
コールリスト拒否IP(2443)
応答.終了
終了する場合
strIP=クエリの場合
CheckWebSiteSetup を呼び出す
応答.終了
終了する場合
#
strIP<> の場合
AddDenyIP(2443,strIP) を呼び出す
終了する場合
サブ CheckWebSiteSetup()
IISOBJ=GetObject(IIS://LocalHost/W3SVC) を設定します。
IISOBJ の各 Web サイトについて
website.Class=IIsWebServer の場合
website.ServerBindings の各 b について
response.write (サーバー &Website.AdsPath にはバインディング&b があります)
応答.書き込み (<br>)
次
終了する場合
次
エンドサブ
#
サブリストDenyIP(strWebNo)
set SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSeccurity
IPList=MyIPSec.IPDeny
ubound(IPList)<0 の場合、
response.write <BR>データがありません。最初にデータを追加してください<BR>
出口サブ
終了する場合
#
intIPListCount=ubound(IPList)+1
#
i=0 から ubound(IPList) へ
応答.書き込み i+1
応答.書き込み:
応答.write IPList(i)
応答.書き込み <br>
次
エンドサブ
サブAddDenyIP(strWebNo,strDenyIp)
set SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSeccurity
' GrantByDefault=TRUE であることを確認してください。そうしないと、変更はカウントされません。
If (FALSE = MyIPSec.GrantByDefault) then
Response.Write <BR>GrantByDefault が TRUE に設定されていませんでした。<BR>
MyIPSec.GrantByDefault = TRUE
終了の場合
IPList=MyIPSec.IPDeny
ubound(IPList)<0 の場合、
response.write <BR>データがありません。最初にデータを追加してください。<BR>
出口サブ
終了する場合
#
intIPListCount=ubound(IPList)+1
#
i=0 から ubound(IPList) へ
strDenyIp = left(IPList(i),len(strDenyIp)) の場合
response.write <BR>データが重複しています。 <BR>
出口サブ
終了する場合
次
redim IPList を保持(intIPListCount)
IPList(intIPListCount)=strDenyIp
response.write が新たに追加されました:
応答.write strDenyIp
応答.書き込み <br>
MyIPSec.IPDeny = IPList
SecObj.IPSec = MyIPSec
SecObj.Setinfo
エンドサブ
%>