[W2k/XP] Semi-automatisch wisselen van proxyserver*

[Fallout]

Aangezien ik bij verschillende bedrijven kom welke uiteraard andere proxy instellingen hebben, zou ik graag een script/freeware progsel willen hebben die de proxy instellingen aanpast.
Zoals in onderstaande topic is te zien is er nog geen oplossing voor gevonden. Netswitcher zou sowieso geen oplossing bieden aangezien het geen freeware is.
http://gathering.tweakers.net/forum/list_messages/502617

OS: W2K/WXP

[Verwijderd]

Ik heb je titel maar wat aangepast, ik raakte zelf al even in de war naar aanleiding van de titel

[blackd]

Proxy alleen voor een site gebruiken?
je moet dat script ergens uploaden, dan werkt het wel.

Kan dus alleen werken als je op verschillende sites moet komen, vanaf 1 locatie.

[ Voor 27% gewijzigd door blackd op 26-02-2004 11:27 ]

[Brahiewahiewa]

Ooit al eens geschreven:

code:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Script to change Internet Explorer's Proxy settings
'
' commandline usage:
'
' IEProxy.vbs [<proxy server>[:<proxy port>]] [/o <proxy override parameters]
'
' examples:
'
'   IEProxy 10.11.12.13
'   IEProxy squid.provider.net:8080
'   IEProxy proxysrv /o 10.*; 172.16.*; 192.168.*
'   IEProxy /o *.local
'   IEProxy disable
'
' (c) 2003 Brahiewahiewa
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

On Error Resume Next

Set WshShell = WScript.CreateObject( "WScript.Shell" )              'Create the Shell object
Set objArgs  = WScript.Arguments                                    'Read the commandline arguments

If objArgs.Count > 0 Then

    bSilent = True                                                  'Don't throw input- or message boxes

    If UCASE ( objArgs ( 0 ) ) = "/O" Then                          'No new proxy server entered, only overrides

        strNewProxy = ""

    Else

        strNewProxy = objArgs ( 0 )

    End If

    For i = 0 To objArgs.count - 1

        If UCASE ( objArgs ( i ) ) = "/O" Then

            strOverride = ""

            For j = i + 1 To objArgs.count -1

                strOverride = strOverride & objArgs ( j )           'Put all remaining args into 1 string

            Next 'j

        End If

    Next 'i

End If

intProxyEnabled = ReadProxyReg ( "ProxyEnable" )    'Read the registry to determine whether or not the proxy server is enabled

If intProxyEnabled > 0 Then

    strProxy        = ReadProxyReg ( "ProxyServer" )
    strProxyServer  = Left (strProxy, InStr ( strProxy, ":" ) - 1 )     'split server and port at the colon
    strProxyPort    = Right (strProxy, Len ( strProxy ) - InStr ( strProxy, ":" ) )

End If

If Not bSilent Then                                                     'No commandline args; throw InputBox

    If intProxyEnabled = 1 Then

        strCurProxyMsg = "Current Proxy settings are: " & strProxyServer & ":" & strProxyPort

    Else

        strCurProxyMsg = "Currently a proxy server is disabled."

    End If

    strNewProxy = InputBox ( strCurProxyMsg & VbCrLf & VbCrLf &_
        "Enter a New proxy : port combination or leave blank for no change" &_
        VbCrLf & "enter 'disable' to clear the proxy settings" )

End If

If Not strNewProxy = "" Then                                            'No text entered in the inputbox

    If InStr ( strNewProxy, ":" ) = 0 Then                              'Check whether or not the port is specified; default to 80

        strNewProxyServer = strNewProxy
        strNewProxyPort   = "80"

    Else                                                                'split the string at the colon

        strNewProxyServer = Left (strNewProxy, InStr ( strNewProxy, ":" ) - 1 )
        strNewProxyPort = Right (strNewProxy, Len ( strNewProxy ) - InStr ( strNewProxy, ":" ) )

    End If

    If UCASE ( strNewProxyServer ) = "DISABLE" Then

        If Not bSilent Then

            MsgBox "Proxy Server will be disabled", VbOkOnly

        Else

            WScript.Echo "Proxy Server will be disabled"

        End If

        iRes = WriteProxyReg ( "ProxyServer", "", "REG_SZ" )            'Also clear the other reg values
        iRes = WriteProxyReg ( "ProxyOverride", "", "REG_SZ" )
        iRes = WriteProxyReg ( "ProxyEnable", 0, "REG_DWORD" )

        WScript.Quit ( iRes )

    End If

    iRes = WriteProxyReg ( "ProxyServer", Trim ( strNewProxyserver ) & ":" & Trim ( strNewProxyPort ) , "REG_SZ" )
    iRes = WriteProxyReg ( "ProxyEnable", 1, "REG_DWORD" )

End If

strOldOverride = ReadProxyReg ( "ProxyOverride" )

If Not bSilent Then

    strOverride = InputBox ( "Current Override settings are: " & strOldOverride & VbCrLf &_
                    "Please enter new string or cancel for no changes," & VbCrLf &_
                    "enter 'disable' to clear override settings" )

End If


If Not strOverride = "" Then

    If UCASE ( strOverride ) = "DISABLE" Then
    
        iRes = WriteProxyReg ( "ProxyOverride", "", "REG_SZ" )

    Else
    
        iRes = WriteProxyReg ( "ProxyOverride", strOverride, "REG_SZ" )
    
    End If

End If

If strProxyServer = "" Then

    strProxyServer = "<none>"
    strProxyPort   = "<none>"

End If

strResult = "Old proxy server: " & strProxyServer & VbCrLf
strResult = strResult & "Old proxy port: " & strProxyPort & VbCrLf  

If strOldOverride = "" Then strOldOverride = "<none>"

strResult = strResult & "Old overrides: " & strOldOverride & VbCrLf & VbCrLf

If strNewProxyServer = "" Then

    strResult = strResult & "New Proxy server: " & strProxyServer & VbCrLf
    strResult = strResult & "New Proxy port: " & strProxyPort & VbCrLf

Else

    If UCase ( strNewProxyServer ) = "DISABLE" Then
    
        strNewproxyServer = "<none>"
        strNewproxyPort   = "<none>"

    End If

    strResult = strResult & "New Proxy server: " & strNewproxyServer & VbCrLf
    strResult = strResult & "New Proxy port: " & strNewproxyPort & VbCrLf

End If

If strOverride = "" Then

    strResult = strResult & "New Overrides: " & strOldOverride

Else

    If UCase ( strOverride ) = "DISABLE" Then strOverride = "<none>"

    strResult = strResult & "New Overrides: " & strOverride 

End If

If Not bSilent Then

    MsgBox strResult, VbOkOnly, "REPORT"

Else

    WScript.Echo strResult

End If


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function WriteProxyReg ( strKey, strValue, strType )

    strKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & strKey

    Err.Clear

    WshShell.RegWrite strKey, strValue, strType

    If Err.Number <> 0 Then WScript.Quit ( Err.Number )

    WriteProxyReg = Err.Number

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ReadProxyReg ( strKey )

    strKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & strKey

    Err.Clear

    ReadProxyReg = WshShell.RegRead ( strKey )

    If Err.Number <> 0 Then WScript.Quit ( Err.Number )

End Function

Doet dus niks automatisch. Je moet een aantal shortcuts creëren en die het scriptje met de juiste parameters laten aanroepen.
Nadeeltje is ook dat het runnen van het script terwijl IE al draait, geen veranderingen bewerkstelligt. 'k Heb wel geprobeerd dit met WMI voor elkaar te krijgen, maar dan kun je weer die override settings niet uitvoeren.

[Verwijderd]

Automatisch was inderdaad niet de goede term. Titeledit2

[Shaidar]

Zo heb ik 't opgelost ...

[rml][ DOS] Proxy Switcher 0.2[/rml]



Werkt nog steeds perfect!

[Fallout]

shaidar schreef op 26 februari 2004 @ 11:44:
Zo heb ik 't opgelost ...

[rml][ DOS] Proxy Switcher 0.2[/rml]



Werkt nog steeds perfect!

Ik was vergeten te vermelden dat ik niet via het register wil werken... dus ik wil een configuratiescript en het hoeft allemaal niet automatisch... gewoon een batch bestandje met de keuze van thuis en werk is prima.

[ Voor 15% gewijzigd door Fallout op 26-02-2004 13:34 ]

[Shaidar]

Waarom wil je niet via het register werken? Ik - persoonlijk - zie geen enkel probleem als je het zo doet... ???