i need add port at inbound rule and outbound rule in windows7 firewall by the code below!but after i add at windows 7 firewall,the firewall still block the application.
When i check the details of port at inbound rules,the protocol and local port are ANY.It suppose is TCP and 8098!
When i check the details of port at outbound rules,the protocol and local port are ANY.It suppose is TCP and 8098!
my application is riskkOnePortFolio and the type of application is Application Manifest(.application)
Anyone can tell me how to correct the code below ?Thanks....I very need yours help,please....
Inbound Rules
option explicit
Dim CurrentProfiles
' Protocol
Const NET_FW_IP_PROTOCOL_TCP = 6
Const NET_FW_IP_PROTOCOL_UDP = 17
'Direction
Const NET_FW_RULE_DIR_IN = 1
Const NET_FW_RULE_DIR_OUT = 2
'Action
Const NET_FW_ACTION_ALLOW = 1
' Create the FwPolicy2 object.
Dim fwPolicy2
Set fwPolicy2 = CreateObject("HNetCfg.FwPolicy2")
' Get the Rules object
Dim RulesObject
Set RulesObject = fwPolicy2.Rules
CurrentProfiles = fwPolicy2.CurrentProfileTypes
'Create a Rule Object.
Dim NewRule
Set NewRule = CreateObject("HNetCfg.FWRule")
NewRule.Name = "Inbound_Rule"
NewRule.Description = "Allow outbound network traffic from my Application over TCP port 8098"
NewRule.Applicationname = "C:\User\lim\Client\RiskkOnePortFolio.application"
NewRule.Protocol = TCP
NewRule.RemotePort = 8098
NewRule.Direction = NET_FW_RULE_DIR_IN
NewRule.Enabled = TRUE
NewRule.Grouping = "@firewallapi.dll,-23255"
NewRule.Profiles = CurrentProfiles
NewRule.Action = NET_FW_ACTION_ALLOW
'Add a new rule
RulesObject.Add NewRule
Outbound Rules
option explicit
Dim CurrentProfiles
' Protocol
Const NET_FW_IP_PROTOCOL_TCP = 6
Const NET_FW_IP_PROTOCOL_UDP = 17
'Direction
Const NET_FW_RULE_DIR_IN = 1
Const NET_FW_RULE_DIR_OUT = 2
'Action
Const NET_FW_ACTION_ALLOW = 1
' Create the FwPolicy2 object.
Dim fwPolicy2
Set fwPolicy2 = CreateObject("HNetCfg.FwPolicy2")
' Get the Rules object
Dim RulesObject
Set RulesObject = fwPolicy2.Rules
CurrentProfiles = fwPolicy2.CurrentProfileTypes
'Create a Rule Object.
Dim NewRule
Set NewRule = CreateObject("HNetCfg.FWRule")
NewRule.Name = "Outbound_Rule"
NewRule.Description = "Allow outbound network traffic from my Application over TCP port 8098"
NewRule.Applicationname = "C:\User\lim\Client\RiskkOnePortFolio.application"
NewRule.Protocol = TCP
NewRule.RemotePort = 8098
NewRule.Direction = NET_FW_RULE_DIR_OUT
NewRule.Enabled = TRUE
NewRule.Grouping = "@firewallapi.dll,-23255"
NewRule.Profiles = CurrentProfiles
NewRule.Action = NET_FW_ACTION_ALLOW
'Add a new rule
RulesObject.Add NewRule
Bookmarks