Ports

[CyberAssassin]

I'm working on making a server package similar to xampp, and I need to open ports, without having to tell them how to do it, Im gonna offer a option that opens the ports for them. Does anyone know how to open ports?(and what I mean is, do you know how to open ports with autoit)

Edited April 14, 2008 by CyberAssassin

[rudi]

Hi.

I'm working on making a server package similar to xampp, and I need to open ports, without having to tell them how to do it, Im gonna offer a option that opens the ports for them. Does anyone know how to open ports?(and what I mean is, do you know how to open ports with autoit)

I assume, your question is about how to put in a firewall exception to allow INbound traffic for a certain TCP port?

Regards, Rudi.

[CyberAssassin]

Hi.

I assume, your question is about how to put in a firewall exception to allow INbound traffic for a certain TCP port?

Regards, Rudi.

Yes, sorry I should have been more descriptive.

[AdmiralAlkex]

You still haven't told us which firewall yo are refering to, WindowsXP/Vista or an external one??

If it's an external one you use UPnP

[CyberAssassin]

Sorry, the Microsoft Windows Firewall.

[qazwsx]

exceptions to the firewall can be added from the command line (netsh or a simmilar command).

[ptrex]

@all

MAybe this can get you going.

;Enable Port
Dim $objPort

$objPort = ObjCreate("HNetCfg.FwOpenPort")

$objPort.Name = "DCOM"
$objPort.Port = 888
$objPort.Scope = "NET_FW_SCOPE_LOCAL_SUBNET"
$objPort.Protocol = "NET_FW_IP_PROTOCOL_TCP"
$objPort.Enabled = True

$objProfile.GloballyOpenPorts.Add ($objPort)

regards

ptrex

[SkinnyWhiteGuy]

ptrex, I just have one question for you:

Where did that $objProfile come from???

[ptrex]

@SkinnyWhiteGuy

I was to quickly forgot to copy some lines ?!

Const $NET_FW_SCOPE_LOCAL_SUBNET = 1
Const $NET_FW_IP_PROTOCOL_TCP = 6
;Enable Port
Dim $objPort
$objFirewall = ObjCreate("HNetCfg.FwMgr")
$objProfile = $objFirewall.LocalPolicy.CurrentProfile
$objPort = ObjCreate("HNetCfg.FwOpenPort")

$objPort.Name = "DCOM"
$objPort.Port = 888
$objPort.Scope = $NET_FW_SCOPE_LOCAL_SUBNET
$objPort.Protocol = $NET_FW_IP_PROTOCOL_TCP
$objPort.Enabled = True

$objProfile.GloballyOpenPorts.Add ($objPort)

regards,

ptrex