'/*=========================================================================
' * Intro Windows系统防火墙端口添加，一般我们是点好多步然后添加好多次才能完成添加操作
，有时还会忘记添加一些端口，这段代码可以实现这样的功能：一键添加所有预先设定好的防火墙端口。
' * FileName 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
Set colPorts = objPolicy.GloballyOpenPorts
errReturn = colPorts.Add(objPort)
End Function
addFirewallPort "WEB 8080",8080,6,0,True
