Remarque : Le fichier ASP exécuté nécessite des droits d'administrateur . Copiez le code comme suit :
<%@ Langage=VBScript %>
<%
DimstrIP
strIP = demande (IP)
%>
<FORM action=? méthode=post>
IP d'entrée : <input type=text value=<%=strIP%> style=BORDER : #AAAAAA 1px solid name=IP>
<input type=submit value=Confirm to send>
</FORM>
<%
si strIP=liste alors
Liste d'appelsDenyIP(2443)
réponse.end
finir si
si strIP=requête alors
Appelez CheckWebSiteSetup
réponse.end
finir si
#
si strIP<> alors
Appeler AddDenyIP(2443,strIP)
finir si
Sous CheckWebSiteSetup()
Définir IISOBJ=GetObject(IIS://LocalHost/W3SVC)
pour chaque site Web dans IISOBJ
si website.Class = IIsWebServer alors
pour chaque b dans le site Web.ServerBindings
réponse.write (le serveur &Website.AdsPath a une liaison&b)
réponse.write (<br>)
suivant
finir si
suivant
fin du sous
#
Sous-ListeDenyIP(strWebNo)
définir SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
IPList=MonIPSec.IPDeny
si ubound(IPList)<0 alors
réponse.write <BR>Aucune donnée, veuillez d'abord en ajouter une<BR>
quitter le sous
finir si
#
intIPListCount=ubound(IPList)+1
#
pour i=0 vers ubound(IPList)
réponse.écrire i+1
réponse.écrire :
réponse.write IPList(i)
réponse.écrire <br>
suivant
fin du sous
Sous AddDenyIP (strWebNo, strDenyIp)
définir SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
' Assurez-vous que GrantByDefault=TRUE sinon vos modifications ne compteront pas.
Si (FALSE = MyIPSec.GrantByDefault) Alors
Response.Write <BR>GrantByDefault n'était pas TRUE Paramètre à TRUE.<BR>.
MonIPSec.GrantByDefault = VRAI
Fin si
IPList=MonIPSec.IPDeny
si ubound(IPList)<0 alors
réponse.write <BR>Aucune donnée, veuillez d'abord en ajouter une<BR>
quitter le sous
finir si
#
intIPListCount=ubound(IPList)+1
#
pour i=0 vers ubound(IPList)
si strDenyIp = left(IPList(i),len(strDenyIp)) alors
réponse.write <BR>Données en double. <BR>
quitter le sous
finir si
suivant
redim Préserver la liste IPL (intIPListCount)
IPList(intIPListCount)=strDenyIp
réponse.write nouvellement ajouté :
réponse.write strDenyIp
réponse.écrire <br>
MyIPSec.IPDeny = Liste IPL
SecObj.IPSecurity = MonIPSec
SecObj.Setinfo
fin du sous
%>