lunes, octubre 25, 2010

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

No hay comentarios.: