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.