Remember to maintain security and privacy. Do not share sensitive information. Procedimento.com.br may make mistakes. Verify important information. Termo de Responsabilidade
Script:
' Defina o nome do processo que deseja finalizar e reiniciar
Dim processoNome
processoNome = "notepad.exe" ' Substitua pelo nome do processo desejado
' Defina o intervalo de tempo em milissegundos (1 hora = 3600000 ms)
Dim intervaloTempo
intervaloTempo = 3600000
' Função para finalizar o processo
Sub FinalizarProcesso(processo)
Dim objWMIService, colProcessos, objProcesso
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcessos = objWMIService.ExecQuery("Select * from Win32_Process Where Name='" & processo & "'")
For Each objProcesso In colProcessos
objProcesso.Terminate()
Next
End Sub
' Função para reiniciar o processo
Sub ReiniciarProcesso(processo)
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run processo
End Sub
' Loop para finalizar e reiniciar o processo a cada 1 hora
Do
FinalizarProcesso(processoNome)
ReiniciarProcesso(processoNome)
WScript.Sleep intervaloTempo
Loop
Como Executar o Script:
1. Abra o Bloco de Notas no Windows.
2. Copie e cole o código do script acima no Bloco de Notas.
3. Salve o arquivo com a extensão .vbs
, por exemplo, reiniciar_processo.vbs
.
4. Clique duas vezes no arquivo .vbs
para executar o script.
5. O script irá rodar em segundo plano, finalizando e reiniciando o processo especificado a cada 1 hora.