Script:

Set objShell = CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")



' Caminho para o executável do Caffeine App

caffeinePath = "C:\Caminho\Para\Caffeine.exe"



' Função para verificar se o Caffeine está em execução

Function IsProcessRunning(processName)

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:" _

        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colProcessList = objWMIService.ExecQuery _

        ("Select * from Win32_Process Where Name = '" & processName & "'")

    If colProcessList.Count > 0 Then

        IsProcessRunning = True

    Else

        IsProcessRunning = False

    End If

End Function



' Função para iniciar o Caffeine se não estiver em execução

Sub EnsureCaffeineIsRunning()

    If Not IsProcessRunning("Caffeine.exe") Then

        objShell.Run """" & caffeinePath & """", 1, False

    End If

End Sub



' Loop para verificar continuamente se o Caffeine está em execução

Do

    EnsureCaffeineIsRunning()

    WScript.Sleep 60000 ' Verifica a cada 60 segundos

Loop

Como Executar o Script:

1. Abra o Bloco de Notas no Windows.
2. Copie e cole o código acima no Bloco de Notas.
3. Substitua "C:\Caminho\Para\Caffeine.exe" pelo caminho correto onde o Caffeine App está instalado no seu computador.
4. Salve o arquivo com a extensão .vbs, por exemplo, MonitorCaffeine.vbs.
5. Para garantir que o script seja executado na inicialização do Windows, crie um atalho para o arquivo .vbs e coloque-o na pasta Inicializar. Para acessar essa pasta, pressione Win + R, digite shell:startup e pressione Enter.
6. Reinicie o computador para que o script seja executado automaticamente na inicialização.