none
GPO Script de logon, Backgournd e outros RRS feed

  • Discussão Geral

  • Bom dia,

    Recentemente venho tendo alguns problemas em relação a GPO-s aplicadas em Windows 10, o meu primeiro problema começou com o papel de parede que não aplica em todas as maquinas, e para solucionar o problema eu precisei setar o caminho do papel de parede diretamente no registro toda vez que o usuário logar;

    @echo Corrigindo erro de papel de Parede...
    @REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v Wallpaper /t REG_SZ /d \\servidor\Share\Background.jpg /f
    @REG ADD "HKCU\Control Panel\Desktop" /v WallPaper /t REG_SZ /d \\servidor\Share\Background.jpg /f

    Um problema resolvido, não da melhor forma, mas resolvido. Outro problema que ainda não consegui a solução é o Background da tela de bloqueio, Windows 7 e Windows servers aqui da empresa pegam normalmente, o Windows 10 também aplicava a GPO ate uma versão anterior o Windows 10 Build 17x. Ainda não resolvi esse problea e estou a procura até hoje.

    Agora apareceu um novo problema, criamos um arquivo .BAT para deletar todos os mapeamentos do usuário e chamar um .VBS para mapear as unidades de acordo com o grupo de cada um, quando eu colo esse .BAT em Script de Logon diretamente no perfil do usuário no AD funciona, mas quando realizo essa configuração por GPO em Configuração do Usuário > Políticas > Configurações do Windows >Scripts > Logon apenas algumas maquinas conseguem realizar o mapeamento.

    Pelo que percebi o problema não esta na execução do .BAT e sim na hora que o .BAT chama o VBS, me parece ser um problema de permissão, segue os scripts em abaixo:

    .BAT

    @echo Deletando todas as unidades de rede...
    @net use /del * /Y
    
    @echo Mapeando as unidades de rede...
    @call cscript "%~dp0MapearUnidadeRede.vbs"

    .VBS

    On Error Resume Next
    
    set objNetwork= CreateObject("WScript.Network")
    strDom = objNetwork.UserDomain
    strUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & strDom & "/" & strUser &  ",user")
    i=1
    j=0
    
    '============================================='
    
    dim letras(21) 
    
    letras(0) = "Z:" 
    letras(1) = "W:" 
    letras(2) = "Y:" 
    letras(3) = "X:"
    letras(4) = "V:" 
    letras(5) = "U:" 
    letras(6) = "T:" 
    letras(7) = "S:"
    letras(8) = "R:" 
    letras(9) = "Q:" 
    letras(10) = "P:" 
    letras(11) = "O:" 
    letras(12) = "N:"
    letras(13) = "M:" 
    letras(14) = "L:" 
    letras(15) = "K:" 
    letras(16) = "J:"
    letras(17) = "I:"
    letras(18) = "H:" 
    letras(19) = "G:"
    letras(20) = "F:"
    
    Function getLetter(ByVal var)
        getLetter = letras(var)
    End Function
    
    For Each objGroup In objUser.Groups
        
        if strGrupo = 0 then
    
            Select Case objGroup.Name
                
            Case "SUP - SUPERVISÃO" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\supervisao"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_sup"	
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\sesup"	
                j = j + i
                
            Case "GAP - GERÊNCIA ADMINISTRATIVA E DE PLANEJAMENTO" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\gap"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_gap"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\setmap"
                j = j + i
            
            Case "NFI - NÚCLEO FINANCEIRO E ORÇAMENTO" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\nfi"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_nfi"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\setcon"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\orcamento"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\settes"
                j = j + i
    			objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\Formularios SERET"
                j = j + i
    			objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\Formularios SETCON"
                j = j + i
            
            Case "NRH - NÚCLEO DE RECURSOS HUMANOS" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\seret"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_nrh"	
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\sesed"	
                j = j + i
            
            Case "NCR - NÚCLEO DE COMUNICAÇÃO E RELACIONAMENTO" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\ncr"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_ncr"	
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\Arquivos SEDPI"
                j = j + i
            
            Case "NAD - NÚCLEO ADMINISTRATIVO" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\setmap"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_nad"	
                j = j + i
            
            Case "AJUR - ASSESSORIA JURÍDICA" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\ajur"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_ajur"	
                j = j + i
            
            Case "GIN - GERÊNCIA DE INFRAESTRUTURA" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\gin"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_gin"	
                j = j + i
            
            Case "RPPN - RESERVA PARTICULAR DO PATRIMÔNIO NATURAL" 
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_rppn"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\rppn"	
                j = j + i
                
            Case "SECEX - SECRETARIA EXECUTIVA" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\sesup"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_secex"	
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\supervisao"	
                j = j + i
            
            Case "SERES - SEÇÃO DE RESERVAS" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\seres"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_seres"	
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\seres\CartasSNH"	
                j = j + i
                
            Case "SERET - SEÇÃO DE RELAÇÕES DO TRABALHO" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\seret"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_seret"	
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\172.16.1.254\Formularios SERET"	
                j = j + i
    			objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\saude"	
                j = j + i
            
            Case "SESED - SEÇÃO DE SELEÇÃO E DESENVOLVIMENTO" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\sesed"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_sesed"	
                j = j + i
            
            Case "SETADM-BASE - SETOR DE ADMINISTRAÇÃO E MANUTENÇÃO DA BASE ADMINISTRATIVA" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\gin"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_setadm-base"	
                j = j + i
            
            Case "SETCON - SETOR DE CONTABILIDADE" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\setcon"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_setcon"	
                j = j + i
    	        objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\Formularios SETCON"
                j = j + i
            
            Case "SETMAP - SETOR DE MATERIAL E PATRIMÔNIO" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\setmap"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_setmap"	
                j = j + i
                
            Case "SETPLO - SETOR DE PLANEJAMENTO E ORÇAMENTO" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\orcamento"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\Vm-srvarquivo\setplo"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_setplo"	
                j = j + i
            
            Case "SETTEC - SETOR DE TECNOLOGIA" 
                objNetwork.MapNetworkDrive getLetter(j), "\\VM-SRVARQUIVO\SETTEC"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_settec"	
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\SETTEC"
                j = j + i	
                
            Case "SETTES - SETOR DE TESOURARIA" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\settes"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_settes"	
                j = j + i
            
            Case "SETTRA - SETOR DE TRANSPORTE E SERVIÇOS GERAIS" 
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\settra"
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_settra"	
                j = j + i
                
            Case "SSA - SESC SERRA AZUL" 
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_ssa"	
                j = j + i
    			objNetwork.MapNetworkDrive getLetter(j), "\\vm-srvarquivo\ssa"	
                j = j + i
    
            Case "SAUDE" 
                objNetwork.MapNetworkDrive getLetter(j), "\\IX4-300D\scan_saude"	
                j = j + i
    			objNetwork.MapNetworkDrive getLetter(j), "\\VM-SRVARQUIVO\saude"	
                j = j + i
                objNetwork.MapNetworkDrive getLetter(j), "\\vm-fileserver-hspc\Enfermaria"	
                j = j + i
    			objNetwork.MapNetworkDrive getLetter(j), "\\vm-fileserver-hspc\Segurança do trabalho"	
                j = j + i
            
            End Select
       End if
    Next
        
    '####################################################'
    '####    REGRAS DE EXCEÇÕES PARA MAPEAMENTO      ####'
    '####################################################'
    
    if strUser = "priscila" then
        objNetwork.MapNetworkDrive getLetter(j), "\\VM-SRVARQUIVO\setcon"
        j = j + i
    End if
    
    if strUser = "valeria.anjos" then
        objNetwork.MapNetworkDrive getLetter(j), "\\172.17.1.254\Biblioteca"
        j = j + i
    End if
    
    if strUser = "raphael.vasconcelos" then
        objNetwork.MapNetworkDrive getLetter(j), "\\vm-fileserver-hspc\Segurança 2014"
        j = j + i
    End if
    
    '####################################################'
    '####    REMOVE PAPEL DE PAREDE DO WINDOWS 10    ####'
    '####################################################'
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    sSrcDir = "C:\Users\" + strUser + "\AppData\Roaming\Microsoft\Windows\Themes\"
    
    If objFSO.FolderExists (sSrcDir) Then 
       objFSO.DeleteFile(sSrcDir + "TranscodedWallpaper.*"),DeleteReadOnly
    End if
    
    
    
    '============================================='
    
    wscript.quit

    Onde estou errando? Somente eu que estou com esses problemas? Pode ser alguma configuração no server ou client?

    terça-feira, 26 de junho de 2018 13:32