通过 WMI 禁用“TCP/IP 筛选”

'/*=========================================================================
' * Intro       通过 WMI 禁用"TCP/IP 筛选" vbs版
' * FileName    TCP-IP-Filter-Disable-Console.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365@qq.com
' * FirstWrite  http://www.yongfa365.com/item/Use-WMi-Disable-TCP-IP-Filter-VBS-yongfa365.html
' * LastModify  2007-08-31 14:45:14
' *==========================================================================*/

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNicConfig = objWMIService.ExecQuery  ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNicConfig in colNicConfig
  If objNicConfig.IPFilterSecurityEnabled Then
    intDisableReturn = objNicConfig.DisableIPSec
    If intDisableReturn = 0 Then
      WScript.Echo "ip过滤已禁用."
    ElseIf intDisableReturn = 1 Then
      WScript.Echo "ip过滤已禁用." &        VbCrLf & " 必须重新启动使更改生效."
    Else
      WScript.Echo "无法禁用ip过滤"
    End If
  Else
    WScript.Echo "ip过滤已经是禁用的."
  End If
Next