Solved

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

Posted on 2008-10-20
4
307 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Get 15 Days FREE Full-Featured Trial

Benefit from a mission critical IT monitoring with Monitis Premium or get it FREE for your entry level monitoring needs.
-Over 200,000 users
-More than 300,000 websites monitored
-Used in 197 countries
-Recommended by 98% of users

Question has a verified solution.

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

A common practice in small networks is making file sharing easy which works extremely well when intra-network security is not an issue. In essence, everyone, that is "Everyone", is given access to all of the shared files - often the entire C: drive …
Are you one of those front-line IT Service Desk staff fielding calls, replying to emails, all-the-while working to resolve end-user technological nightmares? I am! That's why I have put together this brief overview of tools and techniques I use in o…
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
Michael from AdRem Software explains how to view the most utilized and worst performing nodes in your network, by accessing the Top Charts view in NetCrunch network monitor (https://www.adremsoft.com/). Top Charts is a view in which you can set seve…
Suggested Courses

635 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