AddRange Method of the IFPCTunnelPortRanges Interface

Syntax

HRESULT AddRange(
  [in]   BSTR bstrName,
  [in]   long lLowPort,
  [in]   long lHighPort,
  [out]  IFPCTunnelPortRange** ppNewDest
);

Parameters

bstrName

Required. String value that specifies the name of the new tunnel port range.

lLowPort

Required. A 32-bit integer that specifies the low end of the port range. The range of permissible values is from 1 through 65535.

lHighPort

Required. A 32-bit integer that specifies the high end of the port range. The range of permissible values is from 1 through 65535.

ppNewDest

Address of an interface pointer that on return points to the new IFPCTunnelPortRange interface created.

Return Value

This method can return one of the following:

• S_OK, indicating that the operation succeeded.
• An error code, indicating that the operation failed. In this case, the [out] parameter returned is a null object.

Syntax

Function AddRange( _
  ByVal bstrName As String, _
  ByVal lLowPort As Long, _
  ByVal lHighPort As Long _
) As FPCTunnelPortRange

Parameters

bstrName

Required. String value that specifies the name of the new tunnel port range.

lLowPort

Required. A 32-bit integer that specifies the low end of the port range. The range of permissible values is from 1 through 65535.

lHighPort

Required. A 32-bit integer that specifies the high end of the port range. The range of permissible values is from 1 through 65535.

Return Value

This method returns a reference to an FPCTunnelPortRange object if successful. Otherwise, an error is raised that can be intercepted by using an error handler.

Example Code

' Define the constants needed.
Const NewRangeName = "SSL 3520"
Const NewRangePort = "3520"
' Create the root object.
Dim root  ' The FPCLib.FPC root object
Set root = CreateObject("FPC.Root")
'Declare the other objects needed.
Dim isaArray	 ' a Forefront TMG array object
Dim tpRanges	 ' An FPCTunnelPortRanges collection
Dim newRange	 ' An FPCTunnelPortRange object
' Get a reference to the array and to
' the collection of tunnel port ranges.
Set isaArray = root.GetContainingArray()
Set tpRanges = isaArray.ArrayPolicy.WebProxy.TunnelPortRanges
' Create a new tunnel port range.
Set newRange = tpRanges.AddRange(NewRangeName, NewRangePort, NewRangePort)
' Save the changes to the collection of tunnel port ranges
' with fResetRequiredServices set to True to restart the Firewall service.
tpRanges.Save True