Welcome to ISAserver.org

vbs script help for web proxy clients

Users viewing this topic: none

Logged in as: Guest

Printable Version

All Forums >> [ISA Server 2004 Misc.] >> ISA Server 2004 Programming >> vbs script help for web proxy clients

Page: [1]

Message

<< Older Topic Newer Topic >>

vbs script help for web proxy clients - 27.Oct.2005 2:58:00 PM

smedeiro@sec.sanyo.com

Posts: 2
Joined: 27.Oct.2005
From: ca
Status: offline

Hello,
I have the following script that I would also like to put in address exceptions for my web proxy clients to execute. Can someone please tell me how to go about doing this.
Thanks in advance.

Option Explicit
On Error Resume Next

Dim Enabled, Shell, Key

Const Policies = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings\ProxySettingsPerUser"
Const Proxy = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
Const Server="\ProxyServer"
Const OverRide = "\ProxyOverride"
Const Enable = "\ProxyEnable"
Const ISAServer ="10.216.140.51"
Const ISAPort = "80"

Set Shell = Wscript.CreateObject("Wscript.Shell")

Key = Policies
Shell.RegWrite Key, 0, "REG_DWORD"
Key = Proxy & Server
Shell.RegWrite Key, ISAServer & ":" & ISAPort, "REG_SZ"
Key = Proxy & OverRide
Shell.RegWrite Key, "<local>", "REG_SZ"
Key = Proxy & Enable
Shell.RegWrite Key, 1, "REG_DWORD"
Set Shell = Nothing