Windows系统防火墙端口添加，一般我们是点好多步然后添加好多次才能完成添加操作，有时还会忘记添加一些端口，这段代码可以实现这样的功能：一键添加所有预先设定好的防火墙端口。
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 80",80,6,0,True
AddFirewallPort "Imail",8383,6,0,True
AddFirewallPort "Serv-U",21,6,0,True
AddFirewallPort "MSSQL",1433,6,0,True
AddFirewallPort "PASV 5000",5000,6,0,True
AddFirewallPort "PASV 5001",5001,6,0,True
AddFirewallPort "PASV 5002",5002,6,0,True
AddFirewallPort "PASV 5003",5003,6,0,True
AddFirewallPort "自定义远程桌面端口",12345,6,0,True
AddFirewallPort "QQ",8000,17,0,True
也可以使用批处理，把以下代码复制并保存为“任意的名字.bat”，并双击执行即可。
echo off
cls
set var=12000
set end=12040
:continue
set /a var+=1
echo add port %var%
netsh firewall add portopening TCP %var% 远程ftp端口号_%var%
if %var% lss %end% goto continue
echo complete
pause
注：以上批处理代码就是把12000-12040这40个端口号批量添加到Windows防火墙的例外中。
本文系作者辛苦写作所得，转载请留下版权链接：本文转载自七彩科技(www.925.top) 帮助系统（http://www.925.cc）感激不尽！
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。