Usuário com melhor resposta
Script para copiar executaveis do Servidor para Estações de Trabalho

Pergunta
-
Prezado(a)s, boa tarde.
Eu preciso criar um script para copiar .exe de um determinado servidor para estações de trabalho, pois tenho uma ardua tarefa de copiar manualmente devido as constantes atualizações do sistema.
Exemplo:
Origem dos Executaveis Destino dos Executaveis( nas estações de trabalho)
\\srv01\Sistema\EAP\eap.exe C:\arquivos de progamas\sistema\EAP
\\srv01\Sistema\Adm\adm.exe C:\arquivos de progamas\sistema\Adm
\\srv01\Sistema\SUP\sup.exe C:\arquivos de progamas\sistema\SUP
\\srv01\Sistema\\CRC\crc.exe C:\arquivos de progamas\sistema\CRC
Ficarei muito Grato pela ajuda.
Cleber Almeida MCP - 2003Server / MCDST
Respostas
-
Olá,
Verifique o script abaixo:
Set strFolder = CreateObject("Scripting.FileSystemObject")
Dim aOrigem(3)
Dim aDestino(3)aOrigem(0) = "\\srv01\Sistema\EAP\eap.exe"
aOrigem(1) = "\\srv01\Sistema\Adm\adm.exe"
aOrigem(2) = "\\srv01\Sistema\SUP\sup.exe"
aOrigem(3) = "\\srv01\Sistema\\CRC\crc.exe"aDestino(0) = "C:\arquivos de progamas\sistema\EAP\"
aDestino(1) = "C:\arquivos de progamas\sistema\Adm\"
aDestino(2) = "C:\arquivos de progamas\sistema\SUP\"
aDestino(3) = "C:\arquivos de progamas\sistema\CRC\"
For x = 0 to UBOUND(aOrigem)
CopiaArquivo aOrigem(x),aDestino(x)
Next
Sub CopiaArquivo(origem,Destino)strFolder.CopyFile origem , destino , true
End Sub
Até mais,
Jesiel
Obs.: Se útil, classifique- Marcado como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 01:11
Todas as Respostas
-
Olá,
Verifique o script abaixo:
Set strFolder = CreateObject("Scripting.FileSystemObject")
Dim aOrigem(3)
Dim aDestino(3)aOrigem(0) = "\\srv01\Sistema\EAP\eap.exe"
aOrigem(1) = "\\srv01\Sistema\Adm\adm.exe"
aOrigem(2) = "\\srv01\Sistema\SUP\sup.exe"
aOrigem(3) = "\\srv01\Sistema\\CRC\crc.exe"aDestino(0) = "C:\arquivos de progamas\sistema\EAP\"
aDestino(1) = "C:\arquivos de progamas\sistema\Adm\"
aDestino(2) = "C:\arquivos de progamas\sistema\SUP\"
aDestino(3) = "C:\arquivos de progamas\sistema\CRC\"
For x = 0 to UBOUND(aOrigem)
CopiaArquivo aOrigem(x),aDestino(x)
Next
Sub CopiaArquivo(origem,Destino)strFolder.CopyFile origem , destino , true
End Sub
Até mais,
Jesiel
Obs.: Se útil, classifique- Marcado como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 01:11
-
Olá,
Verifique o script abaixo:
Set strFolder = CreateObject("Scripting.FileSystemObject")
Dim aOrigem(3)
Dim aDestino(3)aOrigem(0) = "\\srv01\Sistema\EAP\eap.exe"
aOrigem(1) = "\\srv01\Sistema\Adm\adm.exe"
aOrigem(2) = "\\srv01\Sistema\SUP\sup.exe"
aOrigem(3) = "\\srv01\Sistema\\CRC\crc.exe"aDestino(0) = "C:\arquivos de progamas\sistema\EAP\"
aDestino(1) = "C:\arquivos de progamas\sistema\Adm\"
aDestino(2) = "C:\arquivos de progamas\sistema\SUP\"
aDestino(3) = "C:\arquivos de progamas\sistema\CRC\"
For x = 0 to UBOUND(aOrigem)
CopiaArquivo aOrigem(x),aDestino(x)
Next
Sub CopiaArquivo(origem,Destino)strFolder.CopyFile origem , destino , true
End Sub
Até mais,
Jesiel
Obs.: Se útil, classifique
Josiel, muito obrigado pela força, no entanto vai algumas duvidas minhas:
aOrigem = ao IP do meu servidor ?
aDestino = ?, pois tenho varios desktop´s e a minha ideia era tipo quando executar o script ele copiar os executaveis da pasta de origem e jogar no destino que no caso e aquele caminho que mencionei: c:\arquivos de programas\sisepc-sup,Com e assim por diante ?
Cleber Almeida MCP - 2003Server / MCDST -
Olá,
Da maneira que ele faz, ele copia o aOrigem(0) para o aDestino(0), e assim por diante.
Faça um teste em uma maquina cliente. Se funcionar, crie uma GPO e coloque para executar o script no logon do usuário por GPO.
Até mais,
Jesiel
Obs.: Se útil, classifique -
Jesiel, boa tarde.
Desculpe minha incoveniencia segue algumas duvidas:
1º seria possivel que esse script fosse criado em *.bat (batch code)
2º em um compartilhamento o mesmo está acentuado, como: c:\arquivos de programas\Sistema\Programação, o que acontece quando executo ele cria uma pasta chamada Progama¬c¬o deste mesmo jeito e o objetivo é copiar apenas o executavel para a pasta mencionada.
3º segue abaixo um script que desenvolvi:
@echo offxcopy \\oecre03w\sistemas$\SISEPC\Update\Prg\*.* "%programfiles%\SisEPC-Programação\*.*" /y
xcopy \\oecre03w\sistemas$\SISEPC\Update\Sup\*.* "%programfiles%\SisEPC-suprimento\*.*" /y@echo Atualizacao Concluida com exito
pause
Há algo de errado neste script ?
Cleber Almeida MCP - 2003Server / MCDST -
-
Boa tarde,
Também estou precisando copiar arquivos do servidor para uma estação de trabalho no meu caso com Windows 7, segui os dois scripts que vocês colocaram aqui mas comigo não funcionou.Preciso copiar arquivos para a pasta C:\Program Files (x86)\Mozilla Firefox\defaults\pref
Script em VBS diz permissão negada, script em bat diz parâmetro invalido.
Ambos foram executados com a conta administrador, realmente não sei mais o que fazer. -
Boa Noite Douglas,
O win7 é um pouco mais chato mesmo, nesse caso faça um teste abra um CMD Elevado, (Mesmo que você seja ADM, em alguns casos ele exige elevação).
segue alguns post daqui do Forum que abrange esse tema.....
http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/c345b0cd-175b-4618-9962-8746407bb5cc/?prof=required
http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/e26ac927-60f5-43af-82ca-222ea16041c5
att, Aparecido Deveza
-
-
Olá,
Seu script me ajudou muito, só tenho uma dúvida, no caso precisaria copiar um arquivo que está no servidor para várias estações, sendo que a pasta fica dentro do usuário, resumindo, preciso que o arquivo seja copiada para usuario\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup, em cada usuário que realizar o logon na máquina, neste caso, como posso colocar o código de destino?
Poderia me ajudar com essa questão?
Já rodei o google todo... rs
Agradeço muito.
Att,
Arthur Miranda