Nota: O arquivo ASP executado requer direitos de administrador . Copie o código da seguinte forma:
<%@Idioma=VBScript%>
<%
DimstrIP
strIP = solicitação (IP)
%>
<FORM ação=?método=postagem>
IP de entrada: <tipo de entrada=valor de texto=<%=strIP%> estilo=BORDER: #AAAAAA 1px nome sólido=IP>;
<input type=submit value=Confirmar para enviar>
</FORM>
<%
se strIP=lista então
Lista de chamadasDenyIP(2443)
resposta.fim
terminar se
se strIP = consulta então
Chame CheckWebSiteSetup
resposta.fim
terminar se
#
se strIP<> então
Chame AddDenyIP(2443,strIP)
terminar se
SubCheckWebSiteSetup()
Definir IISOBJ=GetObject(IIS://LocalHost/W3SVC)
para cada site no IISOBJ
se website.Class=IIsWebServer então
para cada b em website.ServerBindings
response.write (Servidor &Website.AdsPath tem ligação&b)
resposta.write (<br>)
próximo
terminar se
próximo
final sub
#
SublistaDenyIP(strWebNo)
definir SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
IPList=MeuIPSec.IPDeny
se ubound(IPList)<0 então
response.write <BR>Sem dados, adicione um primeiro<BR>
sair do sub
terminar se
#
intIPListCount=ubound(IPList)+1
#
para i = 0 para ubound (IPList)
resposta.escrever i+1
resposta.write:
resposta.write IPList(i)
resposta.write <br>
próximo
final sub
Sub AddDenyIP(strWebNo,strDenyIp)
definir SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
' Certifique-se de GrantByDefault=TRUE ou suas alterações não contarão.
Se (FALSO = MyIPSec.GrantByDefault) Então
Response.Write <BR>GrantByDefault não era TRUE configurado como TRUE.<BR>.
MeuIPSec.GrantByDefault = TRUE
Terminar se
IPList=MeuIPSec.IPDeny
se ubound(IPList)<0 então
response.write <BR>Sem dados, adicione um primeiro<BR>
sair do sub
terminar se
#
intIPListCount=ubound(IPList)+1
#
para i = 0 para ubound (IPList)
se strDenyIp = left(IPList(i),len(strDenyIp)) então
response.write <BR>Dados duplicados. <BR>
sair do sub
terminar se
próximo
redim Preservar IPList(intIPListCount)
ListaIP(intIPListCount)=strDenyIp
resposta.write recentemente adicionado:
resposta.write strDenyIp
resposta.write <br>
MeuIPSec.IPDeny = ListaIP
SecObj.IPSecurity = MeuIPSec
SecObj.Setinfo
final sub
%>