Doc:
Taking a fast look at Jooel AllowRemoteControlOnFirewall() function saw how the object was manipulated. There might be a way of adding ports as I suggested like this, sorry if was already done and....havent tryed it yet.

Code:
  
Dim $objPort     

$objPort = CreateObject("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)

$objPort=''


Lonkero Nieminen you can have a second UDF for your AllowRemoteControlOnFirewall().
M$ reference

Edited by Jose (2005-04-01 10:51 AM)
_________________________
Life is fine.