Solved

ISA 2001/VBScript help: View port range (and disable some ports)

Posted on 2008-10-20
4
299 Views
Last Modified: 2012-05-05
Hi All,

I've been asked to run the script below by a vendor.  But before i run it i would like to know if these ports are availible for these protocols, and how i could remove the changes if it doesn't fix the issue we are experiencing.

Found this on the net, but not sure how to get the current ports or delete existing ones.
http://msdn.microsoft.com/en-us/library/aa491817.aspx


many thanks
set isa=CreateObject("FPC.Root")

set tprange=isa.Arrays.GetContainingArray.ArrayPolicy.WebProxy.TunnelPortRanges

set tmp=tprange.AddRange("ICA 1494", 1494, 1494)

set tmp=tprange.AddRange("CGP 2598", 2598, 2598)

tprange.Save

MsgBox("Done")

Open in new window

0
Comment
Question by:detox1978
  • 2
  • 2
4 Comments
 
LVL 51

Accepted Solution

by:
Keith Alabaster earned 500 total points
ID: 22764735
easy enough.

The script you have there is only a part of it though. There is no such thing as ISA2001 - there is isa2000, 2004 and 2006 as fas as the outside world is concerned.

Use the site www.isatools.org (courtesy jim Harrison) and look in the tools sections of the version of ISA you actually have.
You will see the ISA tunnel port extender software. Use the tool with no parameters and it will show you the ports already allowed. read the syntax and it will show you how to add additional ports, a port range and how to delete existing ones.

Keith
0
 
LVL 2

Author Comment

by:detox1978
ID: 22766008
Sorry my mistake.  It's ISA 2000.

Will download it now.
0
 
LVL 2

Author Comment

by:detox1978
ID: 22766074
Thanks, have run the script and it doesn't return any details for ICA and CGP.

If i run my script would the below script undo my changes?


set isa=CreateObject("FPC.Root")

set tprange=isa.Arrays.GetContainingArray.ArrayPolicy.WebProxy.TunnelPortRanges

set tmp=tprange.DelRange("ICA 1494", 1494, 1494)

set tmp=tprange.DelRange("CGP 2598", 2598, 2598)

tprange.Save

MsgBox("Done")

Open in new window

0
 
LVL 51

Expert Comment

by:Keith Alabaster
ID: 22769432
No, the script will be fine
0

Featured Post

Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Enterprise networks where VoIP phones have been deployed frequently use port configurations that allow both a computer and an IP phone to be plugged into the same switch port but use different VLANs. On Cisco equipment I'm referring to the "native V…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

914 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now