Solved

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

Posted on 2008-10-20
4
305 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

Create the perfect environment for any meeting

You might have a modern environment with all sorts of high-tech equipment, but what makes it worthwhile is how you seamlessly bring together the presentation with audio, video and lighting. The ATEN Control System provides integrated control and system automation.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Adding a countdown to HTA 12 114
VB script to continue despite error 2 78
Excel VBA API Loop Query Return results in excel 4 60
Help with Classic ASP - Parameterizing Query 16 65
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…
This article offers some helpful and general tips for safe browsing and online shopping. It offers simple and manageable procedures that help to ensure the safety of one's personal information and the security of any devices.
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…

738 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