Windows系统防火墙端口批量添加 VBS实现

本文介绍了一种使用VBScript批量添加Windows系统防火墙端口的方法,包括了TCP和UDP协议,适用于WEB、邮件服务器、FTP、数据库等服务。示例代码展示了如何为多个端口创建规则,并启用它们。
摘要由CSDN通过智能技术生成
ON ERROR RESUME NEXT 
Function AddFirewallPort(strName,iPort,iProtocol,iScope,bEnabled)  
    Set objFirewall = CreateObject("HNetCfg.FwMgr")  
    Set objPolicy = objFirewall.LocalPolicy.CurrentProfile  
    Set objPort = CreateObject("HNetCfg.FwOpenPort")  
 
    objPort.Name = strName '名称  
    objPort.Port = iPort '端口号  
    objPort.Protocol = iProtocol 'TCP--> 6,UDP-->17  
    objPort.Scope = iScope '范围all-->0 ,仅我的子网-->1  
    objPort.Enabled = bEnabled '是否开启 True or Fal
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值