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

11.581 Comentários

  3. DustinPhype DustinPhype

    Лечение наркомании требует особого подхода и высокой квалификации персонала. В центре помогают людям, употребляющим как тяжелые опиаты, так и современные синтетические вещества. Опасность наркотиков в том, что они быстро вызывают необратимые изменения в психике. При поступлении пациента в первую очередь проводят детоксикацию наркозависимых, чтобы очистить организм от ядов. После этого начинается длительный этап восстановления личности. Специалисты знают, как страшен передоз и его последствия, поэтому всегда имеют в наличии препараты для экстренной реанимации. Родственники часто спрашивают про реабилитацию после алкоголизма и наркомании — эти процессы во многом схожи и требуют одинакового серьезного подхода.
    Получить больше информации – https://our-health-center-msk.ru/mefedron-kak-upotreblyayut

    # agosto 31, 2026
  6. Frankpaild Frankpaild

    Быстро собираем первичную информацию, оцениваем риски и предлагаем подходящий вариант обращения.
    Узнать больше – [url=https://4.kapelnica-ot-zapoya-moskva0.ru/]kapelnica-ot-zapoya-klinika-moskva[/url]

    # agosto 31, 2026
  10. RobertCok RobertCok

    При продолжительном приеме спиртного накапливаются продукты распада этанола, нарушается баланс жидкости и электролитов, возрастает нагрузка на сердце и сосуды. Алкогольная интоксикация вызывает изменения сна, настроения и поведения. Иногда развивается психоз; психиатрия относит подобные острые состояния к ситуациям, требующим срочной оценки специалиста. В таких случаях лечение в стационаре наиболее безопасно.
    Узнать больше – [url=https://2.vyvod-iz-zapoya-balashiha5.ru/]вывод из запоя балашиха[/url]

    # agosto 31, 2026
  45. Daniellot Daniellot

    Современные методы лечения подбираются по медицинским показаниям. В клинике могут рассматриваться медикаментозное кодирование, методы с применением психотерапии и комбинированные программы. У каждого способа есть особенности, показания и противопоказания. Некоторые методы воздействуют на фармакологической основе, другие направлены на формирование психологической установки и изменение отношения к спиртному. Самый подходящий вариант определяет нарколог, а при наличии эмоциональных и поведенческих нарушений к работе может подключаться психиатр, психолог или психотерапевт.
    Ознакомиться с деталями – [url=https://2.kodirovanie-ot-alkogolizma-moskva9.ru/]kodirovanie-v-moskve-otzyvy[/url]

    # agosto 31, 2026
  50. 888starz_syPt 888starz_syPt

    Siedze tu od jakichs czterech miesiecy, wiec mam juz jakies zdanie. Wszedlem tu z polecenia znajomego, ktory wczesniej siedzial na innym serwisie. Biblioteka gier na 888starz mocno mnie zaskoczyla — mowimy o ponad 4000 automatow, choc szczerze mowiac i tak grasz w te same 10 gier. Pragmatic Play, Play’n GO i NetEnt sa najbardziej widoczne, Sweet Bonanza i Book of Dead wisza w topce.

    Bonus powitalny to 100% od wplaty z dorzuconymi 50 darmowymi spinami. Przy zakladaniu konta z kodem czasem podbijaja pule. Tylko uwazajcie na jedno — obrot bonusem to x40, w dodatku czas leci szybko. Ja przy pierwszym podejsciu nie wyrobilem. Aktualne kody mozna podejrzec na [url=https://xn—-itboqcfed6k.xn--p1ai/2026/08/28/888starz-testflight-przewodnik-po-aplikacji-i-mobilnej-wersji]888starz[/url] zanim klikniesz “zaloz konto”.

    Wplaty startuja od jakichs 20 zlotych, sa karty, e-portfele, no i krypto. Ja wyplacam w krypto bo idzie najszybciej. Wyplaty w 888starz na e-wallet leci tego samego dnia, ale na karte potrafi zejsc i 2-3 dni. Weryfikacja KYC to standard — u mnie zeszlo jakies 12 godzin.

    Live to w wiekszosci Evolution i to widac po jakosci. Crazy Time, Lightning Roulette, blackjack — obraz nie tnie nawet na LTE. Brakuje polskiego krupiera, to minus. Z komorki gram najczesciej i nie ma zaciec, dostepna jest appka, ale ja jej nie uzywam.

    Obsluga w 888starz gada po polsku i to bez translatora. Odpowiedz przychodzi w kilka minut. Licencja to Curacao, co nie kazdemu podpasuje. Dla mnie liczy sie ze placa, ale wypada o tym wspomniec.

    # agosto 31, 2026

Deixe um comentário

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