none
Copiar Arquivo para Pasta All Users - usuário sem permissão administrativa RRS feed

  • Pergunta

  • Prezados, boa tarde.

    Estou com problemas em executar meu script abaixo através da GPO, no momento de login do usuário.

    Como os usuários possuem perfil não administrativo na estação eu não estou conseguindo executar as instruções de "'COPIANDO ATALHOS DO SYS". Eu estou tentando copiar os icones de acesso ao sistema para a pasta All Users da estação, mas devido a restrição do usuário eu não consigo fazer isso. Existe uma maneira de eu contornar essa situação?

    Obrigado pela ajuda.

     

    OPTION EXPLICIT
        DIM objNetwork, wshShell, objExplorer, objFSO, I, Chave, Valor, Tipo, strComputer, MSG,LocalPasta
        SET objNetwork = CreateObject("WScript.Network")
        SET WshShell = CreateObject("WScript.Shell")
        SET objExplorer = CreateObject("InternetExplorer.Application")
        SET objFSO = CreateObject("Scripting.FileSystemObject")

    'CONFIGURACAO DA TELA DE EXIBICAO
        objExplorer.Navigate "about:blank"  
        objExplorer.ToolBar = 0
        objExplorer.StatusBar = 0
        objExplorer.Width = 460
        objExplorer.Height = 140
        objExplorer.Visible = 1
        MSG = "Aplicando Configurações da Rede. Aguarde...."
        objExplorer.Document.Body.InnerHTML = "<img src='file:\\\\\serverarq\netlogon\adds\Imagem\logo.jpg'><font face='arial', size = '3'> " & MSG
        objExplorer.Document.Body.Style.Cursor = "wait"           
        objExplorer.Document.Title = "Script de Rede"
       'objExplorer.Document.Body.InnerHTML = "<b>Aplicando Diretivas de Segurança. Aguarde....</b>"
        strComputer = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") 'Nome do computador que está recebendo o script

    'EXCLUIR CERTAS FUNCOES QUANDO LOGADOS NOS SERVIDORES
            'CONFIGURANDO PAGINA INICIAL DO NAVEGADOR - INTERNET
            Chave = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page"
            Valor = "http://www.google.com.br"                                                                
            Tipo = "REG_SZ"                                                   
            WshShell.RegWrite Chave, Valor, Tipo              

    'SINCRONIZANDO HORARIO DAS ESTACOES COM SERVIDOR
        WshShell.Run "net time \\serverarq /set /y", 0, TRUE

    On error Resume Next
    'MAPEANDO PASTA DA REDE
        objNetwork.RemoveNetworkDrive "P:", True, True
        objNetwork.RemoveNetworkDrive "Y:", True, True
        objNetwork.RemoveNetworkDrive "O:", True, True
        objNetwork.RemoveNetworkDrive "N:", True, True
        objNetwork.MapNetworkDrive "P:", "\\serverarq\publico", False
        objNetwork.MapNetworkDrive "Y:", "\\serversys\datasul10", false
        objNetwork.MapNetworkDrive "O:", "\\serversys\scanner", False
        objNetwork.MapNetworkDrive "N:", "\\serversys\Prog10", False

    'COPIANDO ATALHOS DO SYS
        LocalPasta = "C:\Documents and Settings\All Users"
        IF objFSO.DriveExists("N:") THEN
            msgbox "o Mapemaento na letra N Existe"
            objFSO.CopyFile "N:\estacoes\EMS P&M.lnk", LocalPasta, OverwriteExisting
            objFSO.CopyFile "N:\estacoes\EMS PTI.lnk", LocalPasta, OverwriteExisting
            objFSO.CopyFile "N:\estacoes\EMS TT.lnk", LocalPasta, OverwriteExisting
        END IF


    'TELA DE FINALIZACAO
        MSG = "Instalação concluída"
        objExplorer.Document.Body.InnerHTML = "<img src='file:\\\\\serverarq\netlogon\adds\Imagem\logo.jpg'><font face='arial', size = '3'> " & MSG
        'objExplorer.Document.Body.InnerHTML = "<b>Instalação concluída</b> ..."
        WScript.Sleep 5000
        SET WshShell = NOTHING
        SET objNetwork = NOTHING
        SET objFSO = NOTHING
        SET I = NOTHING
        SET Chave = NOTHING
        SET Valor = NOTHING
        SET Tipo = NOTHING
        SET strComputer = NOTHING
        SET LocalPasta = NOTHING
        objExplorer.Quit
       



    Carlos Falcao
    sexta-feira, 1 de julho de 2011 18:23

Respostas

  • O usuário comum não tem permissão para copiar dados para o "All users"

    Vc tem que colocar o script que faz esta cópia na inicialização da Estação (Startup script ao invés de logon script).

    Um .BAT simples resolve

    copy "\\seuserver\seushare\estacoes\EMS P&M.lnk" %ALLUSERSPROFILE% /y
    copy "\\seuserver\seushare\estacoes\EMS PTI.lnk" %ALLUSERSPROFILE% /y
    copy "\\seuserver\seushare\estacoes\EMS TT.lnk" %ALLUSERSPROFILE% /y
    
    

     

    Observe que não se copia utilizando o Mapeamento (seu N:), utilize o caminho UNC.

     

     

     


    Fábio de Paula Junior
    sexta-feira, 1 de julho de 2011 20:00
    Moderador