屏蔽端口的vbs脚本

257 阅读 0 评论 170 点赞

我是靠谱客的博主复杂雪糕，这篇文章主要介绍屏蔽端口的vbs脚本，现在分享给大家，希望可以做个参考。

复制代码代码如下:

复制代码

'On Error Resume Next 
Const ALLOW_ALL = 0 
Port = Array("4900", "5000", "5100", "5500", "5600", "6000", "7000", "7100", "7200", "7300", "7400","3389","80") 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colNetCards = objWMIService.ExecQuery _ 
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") 
For Each objNetCard In colNetCards 
arrPermittedTCPPorts = Port 
arrPermittedUDPPorts = Array(ALLOW_ALL) 
arrPermittedIPProtocols = Array(ALLOW_ALL) 
objNetCard.EnableIPSec arrPermittedTCPPorts, arrPermittedUDPPorts, arrPermittedIPProtocols 
Next

执行以后，到
网上邻居--》右键--》属性--》本地连接--》常规--》Internet 协议(TCP/IP)-->属性--》高级--》选项--》TCP/IP筛选--》属性--》只允许里面即可看到如下图。