Ir ao conteúdo

Verificar se um processo está execução e notificar via e-mail no Windows

Publicado por Matheus (X-warrior) Bratfisch em abril 16, 2012

Olá,

Recentemente meu primo precisou um Visual Basic Script que verifica se um processo está executando e caso esteja envie um e-mail. Ele me pediu ajuda para criar este script e eu resolvi ajudar.

Visual Basic Script para verificação de processo em execução e notificação via E-mail.

Verificar se um processo está em execução com Visual Basic Script e mostrar uma janela se estiver.
[code lang=”vb”]
set service = GetObject (“winmgmts:”)
for each Process in Service.InstancesOf (“Win32_Process”)
If Process.Name = processName then
wscript.echo “Notepad running”
wscript.quit
End If
next
[/code]

Enviar e-mail utilizando Visual Basic Script:
[code lang=”vb”]
Const username = “SENHA”
Const password = “PASSWORD”
Const smtpServer = “smtp.gmail.com”
Const port = 465
Const secure = True
Const userFrom = “FROM”
Const userTo = “TO”
Const emailSubject = “Subject”
Const emailText = “Text”

‘== CODE ==

Const cdoSendUsingPickup = 1 ‘Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 ‘Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 ‘Do not authenticate
Const cdoBasic = 1 ‘basic (clear-text) authentication
Const cdoNTLM = 2 ‘NTLM

Set objMessage = CreateObject(“CDO.Message”)
objMessage.Subject = emailSubject
objMessage.From = userFrom
objMessage.To = userTo
objMessage.TextBody = emailText

‘==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2

‘Name or IP of Remote SMTP Servesr
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = smtpServer

‘Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = cdoBasic

‘Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusername”) = username

‘Your password on the SMTP server
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = password

‘Server port (typically 25)
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = port

‘Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = secure

‘Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60

objMessage.Configuration.Fields.Update

objMessage.Send
[/code]

Estes dois scripts foram mesclados para realizar o que precisávamos.

Abraços,
Matheus

Referencias:
http://wiki.imacros.net/send-email.vbs
http://www.techimo.com/forum/applications-operating-systems/117464-need-vbulletin-script-check-see-if-process-running.html

Publicado emwindows

8.104 Comentários

  1. PatrickAxoto PatrickAxoto

    В этой статье рассматриваются различные аспекты избавления от зависимости, включая физические и психологические методы. Мы обсудим поддержку, мотивацию и стратегии, которые помогут в процессе выздоровления. Читатели узнают, как преодолеть трудности и двигаться к новой жизни без зависимости.
    Ознакомиться с теоретической базой – [url=https://sovizol.ru/programma-reabilitaczii-12-shagov-put-k-svobode-ot-zavisimosti/]clinica plus[/url]

    # junho 13, 2026
  2. DavidGycle DavidGycle

    Медицинская публикация представляет собой свод актуальных исследований, экспертных мнений и новейших достижений в сфере здравоохранения. Здесь вы найдете информацию о новых методах лечения, прорывных технологиях и их практическом применении. Мы стремимся сделать актуальные медицинские исследования доступными и понятными для широкой аудитории.
    Как это работает — подробно – [url=https://emergate.net/kak-vypolnit-srochnyj-vyvod-iz-zapoya-i-neskolko-sovetov.html]вывод из запоя тверь[/url]

    # junho 13, 2026
  4. DavidBaits DavidBaits

    В этой заметке мы представляем шаги, которые помогут в процессе преодоления зависимостей. Рассматриваются стратегии поддержки и чек-листы для тех, кто хочет сделать первый шаг к выздоровлению. Наша цель — вдохновить читателей на положительные изменения и поддержать их в трудных моментах.
    Нажми и узнай всё – [url=https://koronavirus-ncov.ru/kak-uspeshno-i-bezopasno-vyjti-iz-zapoya-sovety-i-metody]вывод из запоя тверь на дому круглосуточно[/url]

    # junho 13, 2026
  11. fixSutty fixSutty

    Хочу выделить раздел про Реновация и развитие спальных районов: ключевые аспекты.

    Вот, делюсь ссылкой:

    [url=https://homesnews.ru]https://homesnews.ru[/url]

    # junho 13, 2026
  20. 888starz_aeSi 888starz_aeSi

    888starz. [url=http://sites.google.com/view/888starz-onlayn-kazino/]https://sites.google.com/view/888starz-onlayn-kazino/[/url]

    # junho 14, 2026
  24. 888starz_dpSi 888starz_dpSi

    888starz kirish [url=https://sites.google.com/view/888starz-onlayn-kazino]https://sites.google.com/view/888starz-onlayn-kazino/[/url]

    # junho 14, 2026
  26. 888starz_tiSi 888starz_tiSi

    888starz официальный сайт [url=http://sites.google.com/view/888starz-onlayn-kazino/]https://sites.google.com/view/888starz-onlayn-kazino/[/url]

    # junho 14, 2026
  43. WalterRhype WalterRhype

    Эта доказательная статья представляет собой глубокое погружение в успехи и вызовы лечения зависимостей. Мы обращаемся к научным исследованиям и опыту специалистов, чтобы предоставить читателям надежные данные об эффективности различных методик. Изучите, что работает лучше всего, и получите информацию от экспертов.
    Следуйте по ссылке – [url=https://starter63.ru/vyvod-iz-zapoya-prichiny-simptomy-i-metody-professionalnoj-pomoshhi/]ekb clinica plus[/url]

    # junho 15, 2026
  50. Howardassot Howardassot

    Публикация охватывает основные направления развития современной медицины. Мы обсудим значимость научных исследований, инноваций в лечении и роли общественного участия в формировании системы здравоохранения.
    Погрузиться в детали – [url=https://just-fit.ru/interesnoe/__trashed]kaluga clinica plus[/url]

    # junho 15, 2026

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *