屏蔽端口的vbs脚本

2019-10-26 18:03:30

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:

'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筛选--》属性--》只允许里面即可看到如下图。

上面的代码只是个例子，服务器上不要运行啊，如果要设置服务器，请到武林站长站服务器软件下载中心，查看相关教材。

您可能感兴趣的文章:

javascript屏蔽右键代码jquery禁用右键单击功能屏蔽F5刷新屏蔽网页右键复制和ctrl+c复制的js代码屏蔽Flash右键信息的js代码网页屏蔽(左右键,代码等)的非JS方法vbs之使用Internet Explorer 屏蔽密码vbs屏蔽键盘按键VB使用XMLHTTP实现Post与Get的方法VB读取线程、句柄及写入内存的API代码实例VB实现的倒计时类代码详解VB调用Word拼写检查功能实例VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法

上一篇：用VBS设置静态IP和DNS服务器地址的代码

下一篇：vbs 百度小助手

学习交流

电脑开不了机的原因和解决办法

电脑开不了机的原因和解决办法...

热门图片

猜你喜欢的新闻

猜你喜欢的关注