Agregar puerto SSL en ISA Server

Bueno hace algún tiempo tuve un inconveniente de que el isa me rechazaba el acceso a un procedimiento del banco, revisando vi que era porque no utilizaba el puerto estándar del ssl sino otro y como este no estaba configurado en el isa server y debía indicarse, entonces buscando en Internet encontré el siguiente código

Dim root

Dim tpRanges

Dim newRange

Set root = CreateObject("FPC.Root")

Set tpRanges = root.GetContainingArray.ArrayPolicy.WebProxy.TunnelPortRanges

set newRange = tpRanges.AddRange("SSL 4443", 4443, 4443)

tpRanges.Save

Se guarda el anterior contenido en un fichero (extencion .vbs) y se ejecuta en el server y listo