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.625 Comentários

  13. zakazat kyhnu_rpPl zakazat kyhnu_rpPl

    Да уж, ремонт — это та еще морока, особенно когда доходит до гарнитура. Сам недавно выбирал, поэтому отлично понимаю ваши терзания. Сосед посоветовал один салон, но пошел своим путем. Короче, когда встал вопрос как выбрать производителя, я выяснил, что адекватный вариант — сразу у производителя. И это логично: можно внести правки по ходу дела, да и отвечают за результат напрямую. Я например — когда листал портфолио, обратил внимание на один нюанс. Идеально — съездить на производство. И кстати, в этом источнике можно посмотреть цены. кухонные гарнитуры на заказ каталог [url=https://zakazat-kuhnyu-hxm.ru]https://zakazat-kuhnyu-hxm.ru[/url] Там и комплектации расписаны — в общем, хорошая база для старта. Я лично так и делал: пролистал все позиции, уточнил детали по замерам, и только после этого принял решение. Так что советую не торопиться, а выделите время на сравнение. Потом скажете спасибо. Делитесь потом, что выбрали!

    # agosto 16, 2026
  19. Narkolog na dom_qxEl Narkolog na dom_qxEl

    Слушайте кто сталкивался Брат снова сорвался Родственники не знают что делать Нужен врач прямо сейчас Короче, единственный кто реально помог — вызвать нарколога на дом быстро Приехал через 40 минут В общем, вся инфа по ссылке — вызов нарколога на дом круглосуточно [url=https://lechenie.narkolog-na-dom-volgograd013.ru]вызов нарколога на дом круглосуточно[/url] Нарколог на дом — это реальный выход Перешлите тем кто в такой же ситуации

    # agosto 16, 2026
  20. Narkologicheskaya pomosh_ygOr Narkologicheskaya pomosh_ygOr

    Казань, всем привет Брат снова сорвался Дети напуганы Нужен врач прямо сейчас Короче, только это реально спасло — нарколог на дом казань цены доступные Осмотрел и поставил капельницу В общем, вся инфа по ссылке — нарколог на дом казань цены [url=https://klinika.narkologicheskaya-pomoshh-v-kazani016.ru]нарколог на дом казань цены[/url] Наркологическая помощь — это реальный выход Перешлите тем кто в такой же ситуации

    # agosto 16, 2026
  21. Narkologicheskaya pomosh_rmOr Narkologicheskaya pomosh_rmOr

    Слушайте кто сталкивался Близкий человек уже несколько дней в запое Жена в истерике Нужен врач прямо сейчас Короче, только это реально спасло — наркологическая помощь срочно Осмотрел и поставил капельницу В общем, не потеряйте контакты — услуги нарколога [url=https://klinika.narkologicheskaya-pomoshh-v-kazani016.ru]https://klinika.narkologicheskaya-pomoshh-v-kazani016.ru[/url] Наркологическая помощь — это реальный выход Перешлите тем кто в такой же ситуации

    # agosto 16, 2026
  22. IsmaelFlolo IsmaelFlolo

    I appreciate how balanced and accessible this post feels because it keeps the conversation engaging and comfortable to read.

    zoofilia porno

    # agosto 16, 2026
  23. Narkolog na dom_ykMt Narkolog na dom_ykMt

    Слушайте кто знает Отец не выходит из штопора Жена в истерике Таблетки не помогают Короче, только это реально спасло — вызов нарколога на дом анонимно Через пару часов человек пришёл в себя В общем, телефон и цены тут — врач нарколог на дом [url=https://czena.narkolog-na-dom-volgograd013.ru]врач нарколог на дом[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации

    # agosto 16, 2026
  24. Narkolog na dom_alMt Narkolog na dom_alMt

    Волгоград, всем привет Муж просто потерял себя Соседи стучат в стену В больницу тащить страшно Короче, врач приехал и поставил систему — наркологическая помощь на дому круглосуточно качественно Дал рекомендации и успокоил семью В общем, телефон и цены тут — вывод из запоя капельница на дому [url=https://czena.narkolog-na-dom-volgograd013.ru]https://czena.narkolog-na-dom-volgograd013.ru[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации

    # agosto 16, 2026
  25. Narkolog na dom_cuKr Narkolog na dom_cuKr

    Реутов, всем привет Муж просто потерял себя Жена в истерике Нужен врач прямо сейчас Короче, единственный кто реально помог — вызов нарколога на дом реутов быстро Осмотрел и поставил капельницу В общем, жмите чтобы сохранить — нарколог на дом реутов [url=https://lechenie.narkolog-na-dom-moskva-gjy.ru]нарколог на дом реутов[/url] Не ждите пока станет хуже Перешлите тем кто в такой же ситуации

    # agosto 16, 2026
  26. Narkolog na dom_ppMt Narkolog na dom_ppMt

    Люди подскажите Ситуация критическая Родственники не знают что делать В больницу тащить страшно Короче, только это реально спасло — нарколог на дом недорого с опытом Осмотрел и поставил капельницу В общем, вся инфа по ссылке — нарколог на дом анонимно [url=https://czena.narkolog-na-dom-volgograd013.ru]https://czena.narkolog-na-dom-volgograd013.ru[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации

    # agosto 16, 2026
  27. Narkolog na dom_esMt Narkolog na dom_esMt

    Люди подскажите Близкий человек уже несколько дней в запое Родственники не знают что делать Таблетки не помогают Короче, единственный кто реально помог — вызвать нарколога на дом быстро Приехал через 40 минут В общем, вся инфа по ссылке — врач нарколог на дом платный [url=https://czena.narkolog-na-dom-volgograd013.ru]https://czena.narkolog-na-dom-volgograd013.ru[/url] Нарколог на дом — это реальный выход Перешлите тем кто в такой же ситуации

    # agosto 16, 2026
  28. Narkolog na dom_oySa Narkolog na dom_oySa

    Реутов, всем привет Брат снова сорвался Жена в истерике Нужен врач прямо сейчас Короче, единственный кто реально помог — нарколог на дом реутов с выездом Через пару часов человек пришёл в себя В общем, жмите чтобы сохранить — нарколога на дом реутов [url=https://alkogolizm.narkolog-na-dom-moskva-rty.ru]https://alkogolizm.narkolog-na-dom-moskva-rty.ru[/url] Нарколог на дом — это реальный выход Перешлите тем кто в такой же ситуации

    # agosto 17, 2026
  35. Narkolog na dom_ynKr Narkolog na dom_ynKr

    Реутов, всем привет Близкий человек уже несколько дней в запое Родственники не знают что делать Таблетки не помогают Короче, врач приехал и поставил систему — вызвать нарколога на дом реутов с опытом Приехал через 40 минут В общем, телефон и цены тут — нарколога на дом реутов [url=https://lechenie.narkolog-na-dom-moskva-gjy.ru]https://lechenie.narkolog-na-dom-moskva-gjy.ru[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации

    # agosto 17, 2026
  38. Narkologicheskaya pomosh_xaoa Narkologicheskaya pomosh_xaoa

    Люди подскажите Брат снова сорвался Соседи стучат в стену Нужна срочная помощь Короче, единственные кто реально помог — наркологический центр с капельницами Поставили капельницу с детоксикационным раствором В общем, вся инфа по ссылке — наркология в балашихе [url=https://narkologicheskaya-pomoshh-balashikha.ru]наркология в балашихе[/url] Наркологическая помощь — это реальный выход Перешлите тем кто в такой же ситуации

    # agosto 17, 2026

Deixe um comentário

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