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.

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

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...

Olá. Troquei o HD por um SSD no computador da empresa onde trabalho e fiz um espelhamento do HD no SSD com o programa Macrium Reflect. Já fiz esse procedimento em outros computadores e deu tudo certo. Nesse modelo da Lenovo tenho problemas. Ao iniciar o PC sem conectar na rede ele da boot normal. Depois de conectado na rede ele mostra a mensagem abaixo: " >>Checking Media Presence..... >>Media Presence..... >>Start PXE over ipv4... " E fica nessa tela por uns 3 minutos.. só então ele prossegue com o boot. Se eu ligar sem o cabo de rede ele liga rápido. Se eu desativo o Secure Boot e mudo o modo de UEFI para Legacy, perde o boot. Já tentei. Alguma solução?

@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?

Bom dia. Imprimo etiquetas na Zebra GC420t via ZEBRA BROWSER PRINT. Preciso aumentar a temperatura de impressão mas não encontrei uma maneira de fazer. Nas configurações normais de impressoras tem essa opção mas não reflete nas etiquetas impressas via Browser Print. Reflete somente em etiquetas enviadas de arquivos como word, excel e demais, o que não me atende. Pelo que li na documentação (em inglês), dá pra fazer via script na linguagem EPL. Alguém consegue me orientar sobre como fazer? Imprimi um diagnostico e a temperatura está em 06.5. Gostaria de aumentar um pouco e testar. Obrigado.

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. Quase todos os dias tenho que imprimir em torno de 180 arquivos em PDF. Todos os Arquivos estão sempre juntos em uma mesma pasta. Afim de evitar ter que abrir um a um e imprimir, gostaria de uma macro no excel que possa imprimir por mim. Pelo que vi em minhas pesquisas, é possível. Mas não consegui fazer. Conheço bastante de excel, mas pouco de VBA. Consigo entender partes do codigo e editar, mas nada muito sofisticado. Se alguém tiver uma solução, fico agradecido.

Bom dia Pessoal. Estou com um notebook de um amigo com problemas no teclado. Dá a impressão que a tecla FN está ativada o tempo todo, pois as teclas J, K e L funcionam como 1,2 e 3, respectivamente. O mesmo acontece com as demais que formam o teclado numérico, que só deveria funcionar acionando a tecla FN. Acontece também que a barra de espaço, quando pressionada, inclui um espaço, como deveria ser, porém também digita a letra "E". Para cada espaço, uma letra "E". Outras telcas: Q= /Q W= ZW E= "Espaço +E" A;S;D;F;G= Funcionam normalmente. B= BR N= N4 A tecla "WindowsKey", que deveria abrir o menu Iniciar, não abre. Na verdade nada acontece. Mas ela não está com "Mau contato", pois os atalhos que a utilizam, funcionam. Por exemplo Windows + R funciona. Abre o Executar. Não me parece problema de hardware. Alguém pode me ajudar? Detalhes: 01- Peguei notebook com o Windows 8 Original, já com o problema. Atualizei para Windows 10 e continuou o problema. 02 - Teclado Externo USB funciona perfeitamente.

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ê