Windows系统防火墙端口批量添加 VBS实现

来源：互联网发布：linux小红帽系统 iso 编辑：程序博客网时间：2024/05/17 01:13

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