windows防火墙小脚本(vbs)

'文件名：AddFireWall.vbs
'功能：添加端口到防火墙，前提是防火墙是开启的
'strName:端口描述
'iPort:端口
'6：TCP;17:UDP
'iRemoteAddresses,*:任何计算机；LocalSubnet:仅我的子网；10.1.1.1/255.255.255.255：自定义列表
'bEnabled,True:开启;False:关闭

Function AddFireWallPort(strName,iPort,iProtocol,iRemoteAddresses,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
   objPort.RemoteAddresses = iRemoteAddresses
   objPort.Enabled = bEnabled
   set colPorts = objPolicy.GloballyOpenPorts
   errReturn = colPorts.Add(objPort)
End Function

AddFireWallPort "web 80",80,6,“12.5.0.0/255.255.0.0",True