'/*=========================================================================  
' * 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