Hi Guys,

i wrote this script to change the settings on all client to force connection
to use only SSL 3.0.
I am testing it on my PC, but the result was a failure.

could some one have a look of the script and let me know?

thanks!
----------------start----------------------

Dim objShell, RegLocate, RegLocate1
Set objShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
RegLocate =
"HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet
Settings\SecureProtocols"

objShell.RegWrite RegLocate,"A0","REG_DWORD"

WScript.Quit


-------end---------------

any comments ?
any one home ?

"Leezy" <leezy@mcsb.com> wrote in message
news:OVHPMiaLIHA.536@TK2MSFTNGP06.phx.gbl...
> Hi Guys,
>
> i wrote this script to change the settings on all client to force
> connection to use only SSL 3.0.
> I am testing it on my PC, but the result was a failure.
>
> could some one have a look of the script and let me know?
>
> thanks!
> ----------------start----------------------
>
> Dim objShell, RegLocate, RegLocate1
> Set objShell = WScript.CreateObject("WScript.Shell")
> On Error Resume Next
> RegLocate =
> "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet
> Settings\SecureProtocols"
>
> objShell.RegWrite RegLocate,"A0","REG_DWORD"
>
> WScript.Quit
>
>
> -------end---------------
>
>

"Leezy" <leezy@mcsb.com> wrote in message
news:udRxBhMMIHA.1168@TK2MSFTNGP02.phx.gbl...
> any comments ?
> any one home ?

There can be any number of valid reasons why nobody chose to respond, so
watch the attitude...

> "Leezy" <leezy@mcsb.com> wrote in message
> news:OVHPMiaLIHA.536@TK2MSFTNGP06.phx.gbl...
>> Hi Guys,
>>
>> i wrote this script to change the settings on all client to force
>> connection to use only SSL 3.0.
>> I am testing it on my PC, but the result was a failure.

Did the script throw an error message, or did the registry change just not
have the effect you were expecting?

If there was an error message, what did it say?

if there was no error message, was the value set in the registry?

Is this registry setting perhaps one that needs to be there when the user
logs on (i.e. it might work next time)?

Have you been successful in making this change manually?

/Al

>>
>> could some one have a look of the script and let me know?
>>
>> thanks!
>> ----------------start----------------------
>>
>> Dim objShell, RegLocate, RegLocate1
>> Set objShell = WScript.CreateObject("WScript.Shell")
>> On Error Resume Next
>> RegLocate =
>> "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet
>> Settings\SecureProtocols"
>>
>> objShell.RegWrite RegLocate,"A0","REG_DWORD"
>>
>> WScript.Quit
>>
>>
>> -------end---------------
>>
>>
>
>

no problem... i have managed to work it out...

>> ----------------start----------------------
>>
>> Dim objShell, RegLocate, RegLocate1
>> Set objShell = WScript.CreateObject("WScript.Shell")
>> On Error Resume Next
>> RegLocate =
>> "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet
>> Settings\SecureProtocols"
>>
>> objShell.RegWrite RegLocate,"161","REG_DWORD"
>>
>> WScript.Quit
>>
>>
>> -------end---------------

"Al Dunbar" <AlanDrub@hotmail.com.nospaam> wrote in message
news:uWq4cAlMIHA.5160@TK2MSFTNGP05.phx.gbl...
>
> "Leezy" <leezy@mcsb.com> wrote in message
> news:udRxBhMMIHA.1168@TK2MSFTNGP02.phx.gbl...
>> any comments ?
>> any one home ?
>
> There can be any number of valid reasons why nobody chose to respond, so
> watch the attitude...
>
>> "Leezy" <leezy@mcsb.com> wrote in message
>> news:OVHPMiaLIHA.536@TK2MSFTNGP06.phx.gbl...
>>> Hi Guys,
>>>
>>> i wrote this script to change the settings on all client to force
>>> connection to use only SSL 3.0.
>>> I am testing it on my PC, but the result was a failure.
>
> Did the script throw an error message, or did the registry change just not
> have the effect you were expecting?
>
> If there was an error message, what did it say?
>
> if there was no error message, was the value set in the registry?
>
> Is this registry setting perhaps one that needs to be there when the user
> logs on (i.e. it might work next time)?
>
> Have you been successful in making this change manually?
>
> /Al
>
>>>
>>> could some one have a look of the script and let me know?
>>>
>>> thanks!
>>> ----------------start----------------------
>>>
>>> Dim objShell, RegLocate, RegLocate1
>>> Set objShell = WScript.CreateObject("WScript.Shell")
>>> On Error Resume Next
>>> RegLocate =
>>> "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet
>>> Settings\SecureProtocols"
>>>
>>> objShell.RegWrite RegLocate,"A0","REG_DWORD"
>>>
>>> WScript.Quit
>>>
>>>
>>> -------end---------------
>>>
>>>
>>
>>
>
>