none
Configurar el Proxy en internet explorer a todas las pc de la compañia RRS feed

  • Pregunta

  •  

    Buen dia,

     

    Necesito configurar el proxy a todas las pc´s por medio de una directiva de grupo, cada vez que un usuario loguee su pc  le configure automaticamente el proxy, pero no se como hacerlo.

     

    Cualquier ayuda sera bien recibida.

     

    Atte.

     

            Eliu Guevara

    eliu.guevara@hotmail.com

     

    jueves, 13 de marzo de 2008 3:15

Respuestas

  • Hola...

     

    Abres el editor de GPO.

    La rama que contiene dicho setting está en:

    Configuración de usuario \ Configuración de Windows \ Mantenimiento de Internet Explorer \ Conexión

    Y luego en el panel derecho verás la opción: Configuración de los servidores proxy.

     

     

    Asigna dicha GPO a la OU que contiene a los usuarios y se les aplicará cada vez que los mismos inicien sesión.

     

     

    Saludos.

    jueves, 13 de marzo de 2008 6:16
    Moderador

Todas las respuestas

  • Hola...

     

    Abres el editor de GPO.

    La rama que contiene dicho setting está en:

    Configuración de usuario \ Configuración de Windows \ Mantenimiento de Internet Explorer \ Conexión

    Y luego en el panel derecho verás la opción: Configuración de los servidores proxy.

     

     

    Asigna dicha GPO a la OU que contiene a los usuarios y se les aplicará cada vez que los mismos inicien sesión.

     

     

    Saludos.

    jueves, 13 de marzo de 2008 6:16
    Moderador
  • Buenas tardes, te dejo un script que cree para que por GPO pueda elegir automaticamente entre dos proxies.


    '*********************************************************************************
    ' Inicio del Login Script Global
    '*********************************************************************************
    Option Explicit
    On Error Resume Next
    '*********************************************************************************
    ' Definicion de variables
    '*********************************************************************************
    Dim WSHNetwork, FSO, strUserName, strUserDomain, ObjGroupDict, objDisk, objNetwork, objWMIService, colDisks, WshShell
    '*********************************************************************************
    ' Seto de Variables
    '*********************************************************************************
    Set WSHNetwork = WScript.CreateObject("WScript.Network")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    strUserName = ""
    While strUserName = ""
    WScript.Sleep 100 ' 1/10 th of a second
    strUserName = WSHNetwork.UserName
    Wend
    strUserDomain = WSHNetwork.UserDomain
    Set ObjGroupDict = CreateMemberOfObject(strUserDomain, strUserName)
    Set objNetwork = CreateObject("Wscript.Network")
    Set objWMIService = GetObject("winmgmts:\root\cimv2")
    Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShell = WScript.CreateObject("WScript.Shell")

    If MemberOf(ObjGroupDict, "proxy1") Then
    WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", "server1.dominio.com:8080"
    WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
    WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", "*10.1.100.*;10.1.104.23;10.1.108.53*"
    else
    If MemberOf(ObjGroupDict, "proxy2") Then
    WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", "server2.dominio.com:8080"
    WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
    WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", "*10.1.100.*;10.1.2.*;10.1.120.*;192.168.80.*;10.1.104.23;10.1.108.53*"
    End if
    End if

    '********************************************************************************
    'Funciones
    '********************************************************************************
    Function MemberOf(ObjDict, strKey)
    MemberOf = CBool(ObjGroupDict.Exists(strKey))
    End Function

    Function CreateMemberOfObject(strDomain, strUserName)
    Dim objUser, objGroup
    Set CreateMemberOfObject = CreateObject("Scripting.Dictionary")
    CreateMemberOfObject.CompareMode = vbTextCompare
    Set objUser = GetObject("LDAP://" _
    & strDomain & "/" _
    & strUserName & ",user")
    For Each objGroup In objUser.Groups
    CreateMemberOfObject.Add objGroup.Name, "-"
    Next
    Set objUser = Nothing
    End Function

    Saludos!!!


    Gaston A. Gimené - MCP(MCTS) MCTS: Microsoft Certified Technology Specialist

    miércoles, 2 de enero de 2013 18:35