Olá,
Você criou a GPO e linkou ela em uma OU.
Oque tem nesta OU??? Tem os usuários ou o Grupo???
GPO não se aplica para grupos.
Você pode fazer é na GPO retirar a permissão de leitura e aplicar GPO para os usuários autenticados.
Feito isso, você adiciona o grupo que você quer aplicar esta GPO e dá permissão para este grupo de leitura e aplicar gpo.
Assim você consegue fazer GPO por GRUPO.
Faça os testes e nos retorne.
Até mais,
Jesiel
Obs.: Se útil, classifique
Jesiel, deu certo sim, muito obrigado, eu estava tentando executar a GPO debaixo de uma OU, dai coloquei debaixo do domino e funcionou, dai dei direito somente aquele grupo que queria e pronto, deu certo, valeu mesmo, mas vou tentar fazer um logon script em vbs, dai fico com somente uma GPO de logon, e não varias como ficou, vc tem ideia onde posso encontrar tal modelo de logon de grupos em vbs ? me deram esse modleo embaio mas não deu certo.
Const EVERYONE_GROUP = "cn=_EVERYONE,ou=EVERYONE,ou=servidor,dc=cohabrp,dc=com"
Const TROCA_GROUP = "cn=_TROCA,ou=TROCA,ou=servidor,dc=cohabrp,dc=com"
Const DIRADM_GROUP = "cn=_DIRADM,ou=DIRADM,ou=servidor,dc=cohabrp,dc=com"
Const DIRFIN_GROUP = "cn=_DIRFIN,ou=DIRFIN,ou=servidor,dc=cohabrp,dc=com"
'Definindo o nome o usuário e grupo em uma variável
Set wshNetwork = CreateObject("WScript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
colGroups = CurrentUser.memberOf
If IsEmpty(colGroups) Then
strGroups = ""
ElseIf TypeName(colGroups) = "String" Then
strGroups = LCase(colGroups)
Else
strGroups = LCase(Join(colGroups))
End If
'msgbox "Teste antes dos grupos - " & colgroups & " - " & strgroups,0,"Testes"
If strGroups = EVERYONE_GROUP Then
wshNetwork.MapNetworkDrive "U:","\\servidor\publica$"
ElseIf strGroups = TROCA_GROUP Then
wshNetwork.MapNetworkDrive "V:","\\servidor\TROCA"
ElseIf strGroups = DIRADM_GROUP Then
wshNetwork.MapNetworkDrive "w:","\\servidor\DIRADM"
ElseIf strGroups = DIRFIN_GROUP Then
wshNetwork.MapNetworkDrive "w:","\\servidor\DIRFIN"
End If
'Set objShell = WScript.CreateObject("Wscript.Shell")
'objShell.Run "\\srv\ofcscan\autopccp.exe",1,false
Você poderia me ajudar em mais esta ??
Grato
Luciano
