Nota: El archivo ASP ejecutado requiere derechos de administrador . Copie el código de la siguiente manera:
<%@ Idioma=VBScript %>
<%
Dimstrip
strIP = solicitud(IP)
%>
<FORMULARIO acción=? método=publicar>
IP de entrada: <tipo de entrada=valor de texto=<%=strIP%> estilo=BORDE: #AAAAAA 1px sólido=IP>;
<tipo de entrada=valor de envío=Confirmar para enviar>
</FORM>
<%
si strIP=lista entonces
Lista de llamadasDenyIP(2443)
respuesta.fin
terminar si
si strIP = consulta entonces
Llame a CheckWebSiteSetup
respuesta.fin
terminar si
#
si tira <> entonces
Llamar a AddDenyIP(2443,strIP)
terminar si
SubcomprobaciónWebSiteSetup()
Establecer IISOBJ=GetObject(IIS://LocalHost/W3SVC)
para cada sitio web en IISOBJ
si sitio web.Class=IIsWebServer entonces
para cada b en el sitio web.ServerBindings
respuesta.write (Servidor &Sitio web.AdsPath tiene enlace &b)
respuesta.escribir (<br>)
próximo
terminar si
próximo
sub final
#
SublistaDenyIP(strWebNo)
establecer SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
IPList=MiIPSec.IPDeny
si ubound(IPList)<0 entonces
Response.write <BR>Sin datos, agregue uno primero<BR>
salir sub
terminar si
#
intIPListCount=ubound(IPList)+1
#
para i=0 a ubound(IPList)
respuesta.escribir i+1
respuesta.escribir:
respuesta.escribir IPList(i)
respuesta.escribir <br>
próximo
sub final
Sub AgregarDenyIP(strWebNo,strDenyIp)
establecer SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
' Asegúrese de que GrantByDefault=TRUE o sus cambios no contarán.
Si (FALSO = MyIPSec.GrantByDefault) Entonces
Response.Write <BR>GrantByDefault no era TRUE La configuración es TRUE.<BR>
MyIPSec.GrantByDefault = VERDADERO
Terminar si
IPList=MiIPSec.IPDeny
si ubound(IPList)<0 entonces
Response.write <BR>Sin datos, agregue uno primero<BR>
salir sub
terminar si
#
intIPListCount=ubound(IPList)+1
#
para i=0 a ubound(IPList)
si strDenyIp = izquierda(IPList(i),len(strDenyIp)) entonces
Response.write <BR>Datos duplicados. <BR>
salir sub
terminar si
próximo
redim Preservar IPList(intIPListCount)
IPList(intIPListCount)=strDenyIp
respuesta.escribir recién agregado:
respuesta.escribir strDenyIp
respuesta.escribir <br>
MyIPSec.IPDeny = ListaIP
SecObj.IPSecurity = MiIPSec
SecObj.Setinfo
sub final
%>