none
gpo de proxy RRS feed

  • Pregunta

  • Muy buenas a todos,
    resuta q tengo un pqeño problema con gpo de proxy,
    he creado una politica de seguridad de proxy en el ad y cuando la gente se logea en el dominio no le pone ni el proxy ni la restricciones,
    he cambiado algo en la politica añadiendo una nueva excepción y he echo un gpupdate /force y sigue sin funcionar,
    y las demas politicas funcionan si a alguien se le ocurre algo

    muchas gracias de antemano
    Carlos

    lunes, 22 de junio de 2009 8:35

Respuestas

  • Saludos Segoas,


    Te recomiiendo llevar a cabo las siguientes tareas:

    - Ejecuta el comando gpupdate /force (tanto en el servidor como en los cleintes)
    - Utiliza el comando gpresult en los clientes, para verificar si se esta o no aplicando la politica
    - Revisa que ninguna otra politica de dominio pueda estar en conflicto con la que has configurado
    - Si es necesario modifica propiedades de herencia de la politica o dale la opcion de forzar (enforce)


    Cuentanos como te va con esto.


    Germán Ruiz -- Infrastructure Architect -- Speaker TechNet LATAM -- http://germanruizp.blogspot.com
    jueves, 13 de agosto de 2009 14:52

Todas las respuestas

  • Saludos Segoas,


    Te recomiiendo llevar a cabo las siguientes tareas:

    - Ejecuta el comando gpupdate /force (tanto en el servidor como en los cleintes)
    - Utiliza el comando gpresult en los clientes, para verificar si se esta o no aplicando la politica
    - Revisa que ninguna otra politica de dominio pueda estar en conflicto con la que has configurado
    - Si es necesario modifica propiedades de herencia de la politica o dale la opcion de forzar (enforce)


    Cuentanos como te va con esto.


    Germán Ruiz -- Infrastructure Architect -- Speaker TechNet LATAM -- http://germanruizp.blogspot.com
    jueves, 13 de agosto de 2009 14:52
  • Buenas tardes, te dejo un script que cree para que por GPO pueda elegir automaticamente entre dos proxies. Por ahi te puede servir para lo que estas buscando.

    '*********************************************************************************
    ' 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


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

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