复制代码 代码如下:
'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筛选--》属性--》只允许 里面即可看到如下图。
上面的代码只是个例子,服务器上不要运行啊,如果要设置服务器,请到服务器软件下载中心,查看相关教材。
'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筛选--》属性--》只允许 里面即可看到如下图。
上面的代码只是个例子,服务器上不要运行啊,如果要设置服务器,请到服务器软件下载中心,查看相关教材。
标签:
屏蔽端口,vbs
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“屏蔽端口的vbs脚本”评论...
更新动态
20240515
20240515
- 群星《试音慢曳DTS[WAV]
- 塞尔达公主多款发型概念图公开:干练短发超受欢迎
- 曝索尼联手乐高:《乐高地平线》即将在发布会公布!
- 全面退款!Epic等平台面向《对马岛》限制地区退款
- 群星《胭脂扣 音乐剧原声带》[320K/MP3][39.59MB]
- 群星《胭脂扣 音乐剧原声带》[FLAC/分轨][100.25MB]
- 群星《勇气家族 电视剧原声带》[320K/MP3]16.67MB]
- 哈迪斯2黑帝斯银白之颅图鉴及附魔效果一览 哈迪斯银白之颅操作介绍及祝福推荐
- 黑帝斯哈迪斯2全武器图鉴及附魔效果一览 全武器操作介绍及祝福推荐
- dnf龙袍套装属性与天空套对比
- 横山菁儿-三国志-燃烧的长江-1993-APE整轨
- [ABC唱片]-《李传韵-琴魂》[K2-018][K2CD]WAV+CUE
- 【ABC唱片】《黃河號子SACD-011》-WAV分轨
- 当《生化危机2:重制版》加入路径追踪:画面真实感显著提升!
- 《哈迪斯2》BOSS不让暂停惹恼玩家:我手柄没电了!