屏蔽端口的vbs脚本
导读：收集整理的这篇文章主要介绍了屏蔽端口的vbs脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:'On Error Resume Next Const ALLOW...
收集整理的这篇文章主要介绍了屏蔽端口的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筛选--》属性--》只允许 里面即可看到如下图。
上面的代码只是个例子，服务器上不要运行啊，如果要设置服务器，请到服务器软件下载中心，查看相关教材。 您可能感兴趣的文章:
- javascript屏蔽右键代码
- jquery禁用右键单击功能屏蔽F5刷新
- 屏蔽网页右键复制和ctrl+c复制的js代码
- 屏蔽Flash右键信息的js代码
- 网页屏蔽(左右键,代码等)的非JS方法
- vbs之使用Internet Explorer 屏蔽密码
- vbs屏蔽键盘按键
- VB使用XMLHTTP实现Post与Get的方法
- VB读取线程、句柄及写入内存的API代码实例
- VB实现的倒计时类代码详解
- VB调用Word拼写检查功能实例
- VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 屏蔽端口的vbs脚本
本文地址： https://pptw.com/jishu/609837.html