Permitir la comunicación SSL en ISA Server usando un puerto diferente al 443 y 563

Por defecto, cuando se usa SSL en un servidor, esta usa el puerto 443 o563, pero cuando se necesita usar otro puerto cuya conexión usa un proxy que esta controlado con el ISA Server 2006 (o posterior) se requiere configurar dicho puerto en el Web Proxy para que pueda ser permitido su uso.

Para hacer esto, se debe crear un archivo con extension .vbs, y luego copiar el siguiente fragmento de código.

' 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 ' An ISA Server 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

'end file



Antes de grabar el archivo, se reemplaza el número 3520 por el puerto deseado, por ejemplo, el 4886.
Se guarda el archivo y se ejecuta donde se encuentra ejecutandose el ISA Server