VBS通过WMI启用“TCP/IP 筛选” 并设置端口号

youxi01

程序名：      通过 WMI 启用"TCP/IP 筛选" 并设置端口号 vbs版
作者：      yongfa365  

1. 
   
2. On Error Resume Next  
   
3.   
   
4. Const ALLOW_ALL = "0"  '允许全部   
   
5. Const ALLOW_NONE = ""  '禁止全部   
   
6. strComputer = "."  
   
7. blnIPFilterSecurityEnabled = "False"  
   
8. arrPermittedTCPPorts = Array("80", "443", "1433", "3389", "21") '要添加的端口号   
   
9. arrPermittedUDPPorts = Array(ALLOW_NONE)   
   
10. arrPermittedIPProtocols = Array(ALLOW_ALL)   
    
11.   
    
12. Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")   
    
13. SpecifyFilters   
    
14.   
    
15. Sub SpecifyFilters   
    
16.   
    
17. Set colNicConfig = objWMIService.ExecQuery  ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")   
    
18. For Each objNicConfig in colNicConfig   
    
19.   intIPSecReturn = objNicConfig.EnableIPSec(arrPermittedTCPPorts,    arrPermittedUDPPorts, arrPermittedIPProtocols)   
    
20.   If intIPSecReturn = 0 Then  
    
21.     WScript.Echo "网卡：" & objNicConfig.ServiceName & vbcrlf & """TCP/IP筛选""　端口和协议已经启用."  
    
22.   ElseIf intIPSecReturn = 1 Then  
    
23.     WScript.Echo "网卡：" & objNicConfig.ServiceName & vbcrlf & """TCP/IP筛选""　端口和协议已经启用."      & VbCrLf & "必须重新启动使更改生效."  
    
24.   Else  
    
25.     WScript.Echo "不通启用 网卡：" & objNicConfig.ServiceName & vbcrlf & """TCP/IP筛选""　端口和协议."  
    
26.   End If  
    
27. Next  
    
28.   
    
29. End Sub  
    

复制代码