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
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 "MSDTC5000", 5000, 6, 0, True
AddFirewallPort "MSDTC5001", 5001, 6, 0, True
AddFirewallPort "MSDTC5002", 5002, 6, 0, True
AddFirewallPort "MSDTC5003", 5003, 6, 0, True
AddFirewallPort "MSDTC5004", 5004, 6, 0, True
AddFirewallPort "MSDTC5005", 5005, 6, 0, True
AddFirewallPort "MSDTC5006", 5006, 6, 0, True
AddFirewallPort "MSDTC5007", 5007, 6, 0, True
AddFirewallPort "MSDTC5008", 5008, 6, 0, True
AddFirewallPort "MSDTC5009", 5009, 6, 0, True
AddFirewallPort "MSDTC5010", 5010, 6, 0, True
AddFirewallPort "MSDTC5011", 5011, 6, 0, True
AddFirewallPort "MSDTC5012", 5012, 6, 0, True
AddFirewallPort "MSDTC5013", 5013, 6, 0, True
AddFirewallPort "MSDTC5014", 5014, 6, 0, True
AddFirewallPort "MSDTC5015", 5015, 6, 0, True
AddFirewallPort "MSDTC5016", 5016, 6, 0, True
AddFirewallPort "MSDTC5017", 5017, 6, 0, True
AddFirewallPort "MSDTC5018", 5018, 6, 0, True
AddFirewallPort "MSDTC5019", 5019, 6, 0, True
AddFirewallPort "MSDTC5020", 5020, 6, 0, True
