Vbscript проксируют настройки

Мне нравится Splunk самому, не дешевый все же.

-1
задан 20 September 2013 в 11:31
1 ответ

Извини, @ Стефан, ты прав. Сначала я начну со сценариев, которые я использую:

Proxy.bat

@echo off
rem Programa: cambioProxy.bat

set ruta=%0
cd %ruta:~0,-16% 

:Menu
  cls
  echo CAMBIO DE SCRIPTS
  echo -------------------------
  echo.
  echo A. Proxy proxy1
  echo B. Proxy proxy2
  echo S. Salir
  echo.

  choice /C abs /n /T 15 /D S /M "Seleccione Proxy "
  if errorlevel 3 goto Salir
  if errorlevel 2 goto proxy2
  if errorlevel 1 goto proxy1
  if errorlevel 0 goto Menu

:proxy1
    takeown /F %ruta:~0,-16%\proxy1.vbs
    proxy1.vbs
    echo Cambio de Proxy Realizado a proxy1
  goto Menu
:proxy2
    takeown /F %ruta:~0,-16%\proxy2.vbs
    proxy2.vbs
    echo Cambio de Proxy Realizado a proxy2
  goto Menu
:Salir
  echo.

Это сценарии. Идентичны, за исключением сервера и порта, тогда я изменю исключения

Proxy1.vbs

dim strProxyServer 

' define el proxy y el puerto si es necesario
strProxyServer = "proxy1:8080"

' ubicacion en la registry
dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")

' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "localhost;webmail.*;", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "AutoConfigURL", "", "REG_SZ")

' notificacion
Msgbox "Proxy setting enabled. " & VbCrLf & "Server - " & strProxyServer
' destroy    
Set oWshShell = Nothing 

Proxy2.vbs

dim strProxyServer 

' define el proxy y el puerto si es necesario
strProxyServer = "proxy2:80"

' ubicacion en la registry
dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")

' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "localhost;", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "AutoConfigURL", "", "REG_SZ")

' notificacion
Msgbox "Proxy setting enabled. " & VbCrLf & "Server - " & strProxyServer
' destroy    
Set oWshShell = Nothing

Мой SO - Windows 7 Professional. Не знаю, могу ли я что-нибудь добавить

0
ответ дан 5 December 2019 в 20:45

Теги

Похожие вопросы