-2

Tenho esse script que consegui aqui mesmo e ele verifica o status de um programa e toda vez que identificar que ele está fechado, o reabre.

@echo off

::Coloque aqui o caminho para o programa:
set Programa=C:\Windows\notepad.exe

For %%a in ("%Programa%") do set "Processo=%%~nxa"

:Loop
cls
echo.
echo  Procurando:  %Processo%
tasklist |find /i "%Processo%" 1>nul 2>nul
if not %Errorlevel% EQU 0 start "" "%Programa%"
timeout /t 10 >nul
goto :Loop

Porém, preciso que seja disparado um e-mail informando toda vez que o script abre o programa.

Alguém pode me ajudar?

4
  • Por favor, edite a pergunta para limitá-la a um problema específico com detalhes suficientes para identificar uma resposta adequada.
    – Comunidade Bot
    Commented 26/04/2022 às 17:47
  • 1
    Teria que usar ou powershell ou um programa de terçeiros dentro do bat para fazer a parte de envio de e-mail. Commented 26/04/2022 às 19:03
  • A operação de enviar um email tem que ser realizada com o powershell em modo administrativo pois é necessário habilitar o TSL na seção para proteger a comunicação de ataques MITM. Quanto aos MUA citados na resposta o sendmail versão Windows não deve ser utilizado com outro protocolo que não seja SMTP pois os outros protocolos nessa versão não suportam criptografia, o Send-MailMessage não deve ser utilizado pois foi descontinuado por não suportar criptografia Commented 4/05/2022 às 11:14
  • deve ser utilizado em seu lugar o MailKit e o Outlook pode ser utilizado com segurança desde que o TLS esteja habilitado na sessão powershell. Então aqui são duas perguntas Como Habilitar TLS 1.2 numa sessão PowerShell e como enviar um email seguro do PowerShell Commented 4/05/2022 às 11:14

1 Resposta 1

-1

Você pode tentar usando:


@echo off 

Setlocal EnableDelayedExpansion
cd/d "%~dp0" & set "_prog=C:\Windows\notepad.exe"

:loop
cls & echo\
for %%a in ("!_prog!")do set /p "'=Procurando: %%~nxa..." <nul & 2>nul (
    tasklist /fo list | 1>nul find /i "%%~nxa" || call :mail "%_prog%"
    timeout 010 1>nul & goto :loop )

:mail
start "" /b /d "%~dp1" "%~nx1"
.\sendEmail.exe -f "Nome Remetente <[email protected]>" -t "Nome Destinatario <[email protected]>" -cc "copia_cc <[email protected]>" -o message-file=.\"arquivo_conteudo_mensagem.html" -v -l .\"seu_arquivo.log" -u "texto de assunto" -a ".\arquivo para anexo 1.docx" -a ".\arquivo para anexo 2.xlsx" -s imap.do_seu_servidor.com:porta -xu [email protected] -xp senha_remetente 1>nul 2>&1
exit /b

obs.: 1 Como o comando/executável do sendEmail tem uma linha muito comprida, você também pode usar escapes (ˆ) para cada quebra de linha, mas observe de terminar cada linha quebrada com o ˆ

inserir a descrição da imagem aqui

.\sendEmail.exe -f "Nome Remetente <[email protected]>" ^
                -t "Nome Destinatario <[email protected]>" ^
               -cc "copia_cc <[email protected]>" ^
                -o message-file=.\"arquivo_conteudo_mensagem.html" ^
                -v -l .\"seu_arquivo.log" -u "texto de assunto" ^
                -a ".\arquivo para anexo 1.docx" -a ".\arquivo para anexo 2.xlsx" ^
                -s imap.do_seu_servidor.com -xu [email protected] -xp senha_remetente 1>nul 2>&1
exit /b

obs.: 2 Para fazer uso de um smtp "externo" para disparo de seus e-mail, é bem provável que algumas configurações deverão ser aplicadas na sua conta e considerar as observações pertinentes dessas ações. Para fins de exemplo "linkei" aqui os do GMail.com


  • Portando seu script para modo hibrido [/ + ]
<# :
@echo off

Setlocal EnableDelayedExpansion
cd/d "%~dp0" & set "_prog=C:\Windows\notepad.exe"

:loop
echo\
for %%a in ("!_prog!")do set /p "'=Procurando: %%~nxa..." <nul & 2>nul (
    tasklist /fo list | 1>nul find /i "%%~nxa" || call :mail "%_prog%"
    timeout 010 1>nul & goto :loop )

:mail
start "" /b /d "%~dp1" "%~nx1"
powershell -NoLogo -NoProfile -Command "$input | &{[ScriptBlock]::Create((Get-Content \"%~f0\") -join [char]10).Invoke(@(&{$args}))}"
exit /b 

#>

write-host 'PowerShell enviando E-mail'
$to = "Nome Destinatario <[email protected]>"
$cc = "copia_cc <[email protected]>"
$subject = "seu assunto de e-mail"
$body = Get-Content -Path $PSScriptRoot + 'arquivo_texto_mensagem.txt' | Out-String

$ol = New-Object -comObject Outlook.Application

$mail = $ol.CreateItem(0)
$mail.To = $to
$mail.Cc = $cc
$mail.Subject = $subject
$mail.HTMLBody = $body
$mail.Body = $body

$inspector = $mail.GetInspector
$inspector.Display()
  • Ou...
<# :
@echo off

Setlocal EnableDelayedExpansion
cd/d "%~dp0" & set "_prog=C:\Windows\notepad.exe"

:loop
echo\
for %%a in ("!_prog!")do set /p "'=Procurando: %%~nxa..." <nul & 2>nul (
    tasklist /fo list | 1>nul find /i "%%~nxa" || call :mail "%_prog%"
    timeout 010 1>nul & goto :loop )

:mail
start "" /b /d "%~dp1" "%~nx1"
powershell -NoLogo -NoProfile -Command "$input | &{[ScriptBlock]::Create((Get-Content \"%~f0\") -join [char]10).Invoke(@(&{$args}))}"
exit /b 

#>

write-host 'PowerShell enviando E-mail'

$de         = "Nome Remetente <[email protected]>"
$para       = "Nome Destinatario <[email protected]>"
$cc         = "copia_cc <[email protected]>" 
$anexo      = ".\arquivo para anexo 1.docx",".\arquivo para anexo 2.xlsx"
$assunto    = "texto de assunto"
$corpo      = Get-Content -Path $PSScriptRoot + 'arquivo_texto_mensagem.txt' | Out-String
$BodyAsHtml  = $true
$SMTPServer = "smtp.do_seu_servidor.com"
$SMTPPorta  = "numero_da_porta"

Send-MailMessage -From $de -to $para -Cc $Cc -Subject $assunto -Body $corpo -BodyAsHtml -SmtpServer $SMTPServer -Port $SMTPPorta -UseSsl -Credential (Get-Credential) -Attachments $anexo



2
  • @lo-ol É você ItWAsnMe? Commented 3/05/2022 às 17:25
  • @RicardoBohner o código afirma que sim e vc já viu!
    – Io-ol
    Commented 3/05/2022 às 17:26

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .