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
