VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP代码,VBS代码库,德仔网

代码语言
代码分类
【VBS】 VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP
作者:Dezai.CN / 发布于2011/8/22/ 1509
<div>'/*=========================================================================
' * Intro VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP
' * FileName VBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-MetaBase.xml.vbs
' * Author yongfa365
' * Version v1.0
' * WEB <a href="http://www.yongfa365.com">http://www.yongfa365.com</a>
' * Email yongfa365[at]qq.com
' * FirstWrite <a href="http://www.yongfa365.com/Item/ADSI-IIS-Add-Deny-Grant-IP.vbs.html">http://www.yongfa365.com/Item/ADSI-IIS-Add-Deny-Grant-IP.vbs.html</a>
' * From <a href="http://blog.csdn.net/linyu/archive/2008/11/14/3300454.aspx">http://blog.csdn.net/linyu/archive/2008/11/14/3300454.aspx</a>
' * MadeTime 2008-12-08 23:10:45
' * LastModify 2008-12-08 23:10:45
' *==========================================================================*/</div>
<div>'AddDenyIP2All "192.168.1.106,255.255.255.0"
'AddDenyIP2All "127.0.0.1"
'AddDenyIP "123456","127.0.0.1"</div>
<div>
'添加要屏蔽的IP或一组计算机，到一个指定站点上</div>
<div>Sub AddDenyIP(strWebNo, strDenyIp)
 On Error Resume Next
 Set SecObj = GetObject("IIS://LocalHost/W3SVC/" & strWebNo & "/Root")
 Set MyIPSec = SecObj.IPSecurity
 MyIPSec.GrantByDefault = True
 IPList = MyIPSec.IPDeny
 i = UBound(IPList) + 1
 ReDim Preserve IPList(i)
 IPList(i) = strDenyIp
 MyIPSec.IPDeny = IPList
 SecObj.IPSecurity = MyIPSec
 SecObj.Setinfo
End Sub</div>
<div>
'添加要屏蔽的IP或一组计算机，到IIS公共配置，以应用到所有站点
'如果之前对有些站点单独做过屏蔽IP设置，在些设置不会生效，得在总的网站上设置一下，然后覆盖所有子结点</div>
<div>Sub AddDenyIP2All(strDenyIp)
 On Error Resume Next
 Set SecObj = GetObject("IIS://LocalHost/W3SVC")
 Set MyIPSec = SecObj.IPSecurity
 MyIPSec.GrantByDefault = True
 IPList = MyIPSec.IPDeny
 i = UBound(IPList) + 1
 ReDim Preserve IPList(i)
 IPList(i) = strDenyIp
 MyIPSec.IPDeny = IPList
 SecObj.IPSecurity = MyIPSec
 SecObj.Setinfo
End Sub</div>
<div></div>
<div></div>
<div>
'添加允许的IP或一组计算机，到一个指定站点上</div>
<div>Sub AddGrantIP(strWebNo, strGrantIp)
 On Error Resume Next
 Set SecObj = GetObject("IIS://LocalHost/W3SVC/" & strWebNo & "/Root")
 Set MyIPSec = SecObj.IPSecurity
 MyIPSec.GrantByDefault = False
 IPList = MyIPSec.IPGrant
 i = UBound(IPList) + 1
 ReDim Preserve IPList(i)
 IPList(i) = strGrantIp
 MyIPSec.IPGrant = IPList
 SecObj.IPSecurity = MyIPSec
 SecObj.Setinfo
End Sub</div>
<div>
'添加允许的IP或一组计算机，到IIS公共配置，以应用到所有站点
'如果之前对有些站点单独做过屏蔽IP设置，在些设置不会生效，得在总的网站上设置一下，然后覆盖所有子结点</div>
<div>Sub AddGrantIP2All(strGrantIp)
 On Error Resume Next
 Set SecObj = GetObject("IIS://LocalHost/W3SVC")
 Set MyIPSec = SecObj.IPSecurity
 MyIPSec.GrantByDefault = False
 IPList = MyIPSec.IPGrant
 i = UBound(IPList) + 1
 ReDim Preserve IPList(i)
 IPList(i) = strGrantIp
 MyIPSec.IPGrant = IPList
 SecObj.IPSecurity = MyIPSec
 SecObj.Setinfo
End Sub</div>
<div></div>
<div>'显示IIS公共配置里禁止访问的IP
Sub ListDenyIP()
 Set SecObj = GetObject("IIS://LocalHost/W3SVC")
 Set MyIPSec = SecObj.IPSecurity
 IPList = MyIPSec.IPDeny 'IPGrant/IPDeny
 WScript.Echo Join(IPList, vbCrLf)
' For i = 0 To UBound(IPList)
' WScript.Echo i + 1 & "-->" & IPList(i)
' Next
End Sub
</div>
试试其它关键字
　IIS批量　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)