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
Function AddFirewallPort(strName,iPort,iProtocol,iScope,bEnabled)
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
本文介绍了一种使用VBScript批量添加Windows系统防火墙端口的方法,包括了TCP和UDP协议,适用于WEB、邮件服务器、FTP、数据库等服务。示例代码展示了如何为多个端口创建规则,并启用它们。

1405

被折叠的 条评论
为什么被折叠?



