jun1orp1m3n7a

@kgin Baseado na sua ideia, coloquei o batch com os comandos em uma pasta na rede, a qual eu posso alterar a vontade, e o batch da maquina desabilita o antivirus, executa o batch remoto e habilita o antivirus novamente.

Muito obrigado.

2 minutos atrás, kgin disse:

Minha ideia seria o primeiro batch verificar na rede se tem alguma atualização dele mesmo, aí só bastaria ele atualizar e se auto executar.

 

mantendo todas as atualizações do batch em uma maquina só.

Hummm.. 

se eu deixar um batch na rede, onde eu possa mexer livremente, e ele chamar esse batch...

entendi certo?

Cara, como não pensei nisso.. kkkk

Acho que vai funcionar sim.

Volto aqui para confirmar se der certo..

valeu

9 minutos atrás, kgin disse:

Seu antivirus permite que um batch copie outro batch?

Estando ativado não, porém o primeiro batch está na Whitelist, portanto consigo executar, e este desativa o antivirus. (Se alguém do TI ler isto me demitem : ))

Uma vez desativado, consigo fazer qualquer coisa, inclusive chamar outro batch.

Só não vejo como poderia editar o segundo batch sem desabilitar o antivírus.

Qual sua ideia?

Olá.

Tenho um arquivo .Bat muito importante que executa os seguintes passos:

• Finaliza alguns programas que serão atualizados.
• Desabilita o Antivirus
• Copia versão mais recente dos programas
• Habilita Antivirus
• Executa novamente os programas atualizados.

Este arquivo é executado a cada inicialização do windows. Basta eu manter a versão mais recente dos programas em um endereço específico, e todos estarão sempre atualizados.

Vez ou outra preciso editar este arquivo .Bat, porém com o antivirus habilitado, não consigo alterar arquivos.Bat, então preciso ir de máquina em máquina (96 máquinas), desabilitar antivírus manualmente, alterar o código, habilitar novamente antivírus. Tudo isso consome muito tempo.

Sei que os computadores me permitem editar arquivos de texto livremente, sem a necessidade de desativar o Antivírus.

Sendo assim, eu gostaria de remover os comandos de atualizar os programas e deixa-los salvos em um bloco de notas, no formato .txt, e no .Bat somente os comandos para desabilitar o antivírus, buscar os comandos de atualização no arquivo txt, executar esses comandos e então habilitar novamente o antivírus.

Tentei apenas copiando o .TXT para o CMD, mas deu acesso negado, o que não ocorre quando executo o .bat

Abaixo o código original.

@echo off
taskkill /f /im HEFESTO_LPSTranslate_V.27.04.20.exe
taskkill /f /im HELEUTHIA_LPSTranslate_V27.04.20.exe
taskkill /f /im "PrintSetup V06.04.20.exe"
timeout /t 1
REM sadmin recover -z iforgot
sadmin bu
timeout /t 1
copy /y "\\10.106.168.65\wpcs\WEB\Atualiza\HEFESTO_LPSTranslate_V.27.04.20.exe" "C:\Hefesto\"
copy /y "\\10.106.168.65\wpcs\WEB\Atualiza\HELEUTHIA_LPSTranslate_V27.04.20.exe" "C:\Heleuthia\"
copy /y "\\10.106.168.65\wpcs\WEB\Atualiza\LTS.exe" "C:\LTS\"
copy /y "\\10.106.168.65\wpcs\WEB\Atualiza\PrintSetup V06.04.20.exe" "C:\PrintSetup\"
timeout /t 1
sadmin eu 
sadmin lockdown 
start C:\Hefesto\HEFESTO_LPSTranslate_V.27.04.20.exe
start C:\Heleuthia\HELEUTHIA_LPSTranslate_V27.04.20.exe
"C:\PrintSetup\PrintSetup V06.04.20.exe"
exit

@ricardo_br Excelente.

Só precisei adicionar Aspas no endereço do arquivo e deu tudo certo.

echo %Date% - %time:~0,5% >> "D:\log.log"

Muito obrigado.

Boa tarde.

Tenho um arquivo .Bat que executa uma série e tarefas.

Gostaria que a cada execução do mesmo, fosse gravada uma linha em um bloco de notas informando a data e hora da execução.

exemplo:

05/04/2022 - 10:34

05/04/2022 - 12:48

...

Alguma dica de como fazer??

@ricardo_br Bom dia.

Você foi excelente.

Era exatamente isso que eu precisava. 

o cod abaixo funcionou perfeitamente.

sadmin recover -z {SuaSenha}

Muito obrigado. 

@ricardo_br Não sei o nome do programa. mas o que eu faço é o seguinte.

Entro no CMD..

digito:

sadmin recover (enter)

aparece msg solicitando uma senha.. digito a senha (enter)

digito sadmin bu (enter)

pronto... antivirus entrou em modo manutenção.

Faço as alterações necessárias e ativo o antivirus novamente:

Novamente no CMD:

sadmin eu (enter)

sadmin lockdown (enter)

pronto.. antivirus ativo novamente.

Vou tentar o codigo que você sugeriu

@ricardo_br Não retornou nenhuma informação. 

Vou testar seguindo sua sugestão e retorno se deu certo.

Obrigado por enquanto

@ricardo_br Olá Ricardo.

Após "Comando 1" vai pedir uma senha.

Basta colocar a senha no "Comando 2"?

Olá.

Preciso automatizar uma atualização manual de software na empresa.

Atualmente entro no CMD, executo um comando para pausar o antivirus, pede uma senha.. digito a senha. 

executo outro comando para o antivirus entrar em modo update.

No explorer, copio a nova versão do software substituindo a atual.

Executo novamente outros 2 comandos no CMD.. um para o antivirus sair do modo update e outro para startar novamente o antivirus.

Como fazer esses comandos em um arquivo .Bat?

Algumas coisas eu sei.. por exemplo copiar os arquivos entre pastas.

Não sei a parte do antivirus.. desativar, colocar a senha...

@godzeus Boa Tarde.

Vi sua msg hj de manhã e fiz o teste. 

Está rodando liso até agora.. Antes ficava travando em poucos minutos...

Deu super certo.

Muito obrigado.

@Basole Acertou na mosca.

Deu certinho..

Muito obrigado.

Infelizmente sem solução pessoal.. Pelo menos pra mim.

Acabei usando apenas 4 Gb mesmo.. mas o desempenho já é bem bom, pelo preço.

Boa Tarde.

Uso  a função abaixo no Excel em VBA faz mais de um ano.

Até agora estava tudo certo...

    Sheets("PLATAFORMA").Select
    
      Columns("E:E").Select
    
    ' Substituir Vendedor 1
    Selection.Replace What:="Vendedor 1", Replacement:="'00007", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 2
    Selection.Replace What:="Vendedor 2", Replacement:="'00010", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 3
    Selection.Replace What:="Vendedor 3", Replacement:="'00009", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Franqueado 1
    Selection.Replace What:="Franqueado 1", Replacement:="'00002", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Gerente 1
    Selection.Replace What:="Gerente 1", Replacement:="'00002", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 4
    Selection.Replace What:="Vendedor 4", Replacement:="'00011", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 5
    Selection.Replace What:="Vendedor 5", Replacement:="'00012", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 6
    Selection.Replace What:="Vendedor 6", Replacement:="'00013", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 7
    Selection.Replace What:="Vendedor 7", Replacement:="'00021", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
        
            ' Substituir Vendedor 8
    Selection.Replace What:="Vendedor 8", Replacement:="'00022", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

    ' Substituir Vendedor 9
    Selection.Replace What:="Vendedor 9", Replacement:="'00023", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

     ' Substituir Vendedor 10
    Selection.Replace What:="Vendedor 10", Replacement:="'00025", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

O problema surgiu agora que chegamos ao "VENDEDOR 10".

Ao executar a macro, a busca para no "Vendedor 1" e faz  substituição de acordo com o mesmo, não chegando ao 10...

Já sei que terei o mesmo problema para futuros vendedores 11, 12, etc...

Preciso de algum tipo de argumento para substituir apenas quando encontrar ocorrência exata do termo buscado..

Ou qualquer outra forma que atenda.

Alguém saberia me ajudar??

Bom dia.

Adquiri um Kit do Aliexppress com MB chinesa (Kllisre X79), processador Xeon E5 2420 V2 e 8gb de Ram (2X de 4Gb).

Funcionar, funciona.. Mas se coloco as duas memórias e pc logo fica lento, travando e o processamento vai a 100% e eventualmente trava.

Se coloco apenas 1 pente de memória, não importa qual deles, o pc fica bala, funciona muito bem.

Mas, claro, gostaria de usar os 8 Gb de memória.

Algo que eu possa fazer a respeito? 

Algum tipo de diagnostico para tentar encontrar o motivo dessa situação?

Boa tarde.

Tenho uma consulta no Excel que buscar informações no banco de dados do SQL com a seguinte instrução:

SELECT

PRODUTOCAD.codpro AS CODIGO,
PRODUTOCAD.descr AS DESCRIÇÃO,
PRODUTOCAD.unid1 AS UNIDADE,
PRODUTOCAD.precoven AS PREÇO
FROM PRODUTOCAD WHERE codpro = '44545'

Gostaria de substituir o valor entre aspa simples pelo valor de uma celula.

Como poderia ser feito?
 

Boa Tarde.

Acho que estou no lugar certo. Não achei área específica de VBA.

Tenho o seguinte código:
    

 Sheets("COLAR_PLATAFORMA").Select
        Range("B2").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    

Os dados que serão colados são copiados de uma pagina de internet. Texto.

Preciso que, antes de colar, o VBA verifique se há dados na Área de Transferência. Caso a mesma esteja vazia, ou com algum tipo de dado incompatível, retorne msg de erro solicitando ao usuário que copie os dados da fonte.

Conseguem me ajudar, por favor?

Obrigado.

Boa tarde.

Atualmente uso uma planilha do Excel comum codigo VBA para criar centenas de arquivos de texto e os salvo em uma pasta no meu desktop.

Acontece que no codigo do VBA eu coloquei o caminho do meu Desktop.

Quando outro usuário usa a mesma planilha, é preciso entrar no codigo e alterar o nome do usuario par alocalizar o caminho.

Gostaria de automatizar essa tarefa.

Alguem consegue me explicar como fazer o VBA localizar o nome do usuario e colocar no caminho?

Vou postar um trecho do codigo onde fic ao endereço.

Se acharem necessário, posso colocar o codigo todo.

Nome = ActiveSheet.Name
 familia = valor
 'On Error Resume Next
 Set f = fso.CreateFolder("C:\Users\jjunior03\Desktop\Artigos\" & familia)
 On Error GoTo 0
 CreateFolderDemo = f.Path
 dir_arq = "C:\Users\jjunior03\Desktop\Artigos\" & familia & "\" & Nome  ' txt chamado arquivo no raíz
 Dim dados As String
 dados = Range("A1").Value
 existe = Dir(dir_arq, vbArchive)
 If existe = "" Then
 Open dir_arq For Append As #1
 Print #1, valor;
 Close #1
 End If
    ActiveWindow.SelectedSheets.Delete

Bom dia amigo. Faz muito tempo, mas consegui fazer.

Me lembro q usei um programa chamado Hamachi ( http://www.baixaki.com.br/download/hamachi-.htm )

Ele cria uma rede pela internet e faz os computadores "pensarem" q estão numa rede local.

Depois de configurado, você vai conseguir mapear normalmente.

E é super simples de configurar. Boa sorte aí. Abração.

é o seguinte amigo.

a Loja faz parte de uma pequena rede de 5 lojas. 3 de grande porte (LOJÃO POPULAR: MOVEIS, ELETRODOMESTICOS, CAMA, MESA, E BANHO) e 2 de medio porte (LOJA DE ELITE: ROUPAS CARAS E TAL...)..

todas fazem seus respectivos backups em unidades de rede mapeadas em outros computadores dentro da loja, porém não é bem seguro. Sabe-se lá se ocorre um incendio?

Se contratarmos um armazenanmento na web (skydriver's por exemplo), será necessario uma configuração de backup complexa para o upload automatico, coisa que eu não saberia fazer.

Atualmente tenho configurado em cada servidor um arquivo .BAT a unidade que deve receber o backup (unidade mapeada).

Se eu puder mapear uma unidade de rede fora da loja ficaria bem mais seguro, poi o backup sendo feito a cada 1 hora e online, ficamos tranquilos.

se você puder me indicar uma solução fico muito grato.

Aguardo, e Boa tarde a você

Amigos. Na empresa onde trabalho compartilhamos os arquivos do servidor com outros computadores.

Para facilitar, mapeamos a pasta compartilhada como unidade de rede em cada pc cliente.

É possivel fazer isso em um computador que esteja fora da empresa via internet??

Compartilhar uma determinada pasta e adicionala como unidade de rede para ser acessada diretamento pelo Win. Explorer?