AddFirewallPort.vbs(批量添加端口) AddFirewallPort.vbs(批量添加端口

AddFirewallPort.vbs(批量添加端口) 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 False
【AddFirewallPort.vbs(批量添加端口)】
Set colPorts = objPolicy.GloballyOpenPorts
errReturn = colPorts.Add(objPort)
End Function

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 False

Set colPorts = objPolicy.GloballyOpenPorts
errReturn = colPorts.Add(objPort)
End Function

AddFirewallPort "MSDTC5000", 5000, 6, 0, True
AddFirewallPort "MSDTC5001", 5001, 6, 0, True
AddFirewallPort "MSDTC5002", 5002, 6, 0, True
AddFirewallPort "MSDTC5003", 5003, 6, 0, True
AddFirewallPort "MSDTC5004", 5004, 6, 0, True
AddFirewallPort "MSDTC5005", 5005, 6, 0, True
AddFirewallPort "MSDTC5006", 5006, 6, 0, True
AddFirewallPort "MSDTC5007", 5007, 6, 0, True
AddFirewallPort "MSDTC5008", 5008, 6, 0, True
AddFirewallPort "MSDTC5009", 5009, 6, 0, True
AddFirewallPort "MSDTC5010", 5010, 6, 0, True
AddFirewallPort "MSDTC5011", 5011, 6, 0, True
AddFirewallPort "MSDTC5012", 5012, 6, 0, True
AddFirewallPort "MSDTC5013", 5013, 6, 0, True
AddFirewallPort "MSDTC5014", 5014, 6, 0, True
AddFirewallPort "MSDTC5015", 5015, 6, 0, True
AddFirewallPort "MSDTC5016", 5016, 6, 0, True
AddFirewallPort "MSDTC5017", 5017, 6, 0, True
AddFirewallPort "MSDTC5018", 5018, 6, 0, True
AddFirewallPort "MSDTC5019", 5019, 6, 0, True
AddFirewallPort "MSDTC5020", 5020, 6, 0, True
posted on 2008-03-05 17:28 Neo Devin 阅读( ...) 评论( ...) 编辑收藏转载于:https://www.cnblogs.com/cuitao/archive/2008/03/05/1092228.html

AddFirewallPort.vbs(批量添加端口)

推荐阅读

安卓凯立德2014 声控,武汉出现第一起确诊病例

南京市江宁区国税局电话南京江宁地税局在哪里，南京江宁区税务局上班时间

志高燃气热水器故障代码e5

常喝净水器的水好吗常喝净水器的水好不好

08-03

马齿苋可以减肥吗

货运资格证怎么办理?货运资格证年审新规定

路由器无限模式用什么模式，路由器无限模式用什么模式最好

我知道

如何用PROE绘制管道 proe画管道详细教程

生命感悟

网游名字大全诗意锦集

象拔蚌怎么杀象拔蚌的功效与作用

钱塘江观潮最佳时节钱塘江观潮最佳时节介绍

信用卡磁条卡怎么认证

穿Edhardy土吗？如何欣赏？

error launching installer解决方法

椰子肉怎么吃不胖呢

烟灰有什么作用烟灰水浇什么花好

红薯和香蕉能一起煮着吃吗