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

13.703 Comentários

  2. Miriam Miriam

    new zealand casino no deposit bonus, casino online uk paypal and gambling trends usa, or yukon gold blackjack

    my homepage … roulette all inclusive vacations – Miriam,

    # setembro 12, 2026
  5. Evan Evan

    buy poker machine united kingdom, open casino in australia and real
    money online casino canada app, or age how to bet the come line
    in craps (Evan) enter casino in united kingdom

    # setembro 12, 2026
  9. ClaudeVog ClaudeVog

    В этой статье мы рассматриваем разрушительное влияние зависимости на жизнь человека. Обсуждаются аспекты, такие как здоровье, отношения и профессиональные достижения. Читатели узнают о необходимости обращения за помощью и о путях к восстановлению.
    Расширить кругозор по теме – [url=https://fsknvrn.ru/zdorove/narkologa-domoj]платный нарколог на дом анонимно[/url]

    # setembro 12, 2026
  11. Anthonywep Anthonywep

    Врач учитывает симптомы, риски, анамнез и семейную ситуацию, чтобы предложить подходящую программу.
    Дополнительная информация – [url=https://1.narcolog-na-dom-voronezh0.ru/]нарколог на дом цена Воронеж[/url]

    # setembro 12, 2026
  12. AnthonyHes AnthonyHes

    При потере сознания, судорогах, тяжелом нарушении дыхания и других состояниях, угрожающих жизни, требуется экстренная медицинская помощь. Обычный выезд нарколога не должен задерживать обращение в скорую службу.
    Получить больше информации – [url=https://9.vyvod-iz-zapoya-krasnoyarsk55.ru/]вывод из запоя с выездом в Красноярске[/url]

    # setembro 12, 2026
  17. Roy Roy

    usa gambling websites, free online power keno games (Roy) 50 pokies no deposit sign up bonus
    united kingdom and best casino sites united states, or online gambling casino nz

    # setembro 12, 2026
  21. Brittny Brittny

    big usa poker tournaments, united statesn roulette wheel number order and disable casino bovada (Brittny) apps real money australia, or uno spin australia

    # setembro 12, 2026
  25. Niamh Niamh

    best online poker tournaments uk, legal online poker sites australia and
    ept poker chips newest casino in lake charles (Niamh) usa, or online casinos usa friendly

    # setembro 12, 2026
  26. Madelaine Madelaine

    gambling statistics uk 2021, canadian pokie machines for sale and united kingdom online pokies 2021, or free bingo games desert night casino no deposit
    bonus codes [Madelaine] deposit usa

    # setembro 12, 2026
  30. Nikitanup Nikitanup

    Каппадокия и Стамбул требуют отдельного планирования маршрута, если хочется увидеть несколько регионов. горящие туры в Турцию. [url=https://tury-v-turciyu-moskva.ru/]Посмотреть варианты поездки[/url].

    # setembro 12, 2026
  32. Daniele Daniele

    is internet poker legal in australia, best deposit bonus betting
    sites new zealand and vancouver australia casinos in laramie
    wy [Daniele], or
    united statesn roulette european difference

    # setembro 12, 2026
  38. Dakota Dakota

    pokies online australia reviews, online casinos free spins
    no deposit usa approved and fun casino australia, or best casino sign up offers uk

    Here is my site :: what does rake mean in gambling (Dakota)

    # setembro 13, 2026
  40. Zenaida Zenaida

    bet365 money casino game number guessing program – Zenaida, usa, united states day free spins
    and no deposit cash bonus casino canada, or united statesn poker tournament

    # setembro 13, 2026
  41. Zenaida Zenaida

    bet365 money casino game number guessing program – Zenaida, usa, united states day free spins
    and no deposit cash bonus casino canada, or united statesn poker tournament

    # setembro 13, 2026
  42. Zenaida Zenaida

    bet365 money casino game number guessing program – Zenaida, usa, united states day free spins
    and no deposit cash bonus casino canada, or united statesn poker tournament

    # setembro 13, 2026
  43. Zenaida Zenaida

    bet365 money casino game number guessing program – Zenaida, usa, united states day free spins
    and no deposit cash bonus casino canada, or united statesn poker tournament

    # setembro 13, 2026
  46. Charleswen Charleswen

    Вызов нарколога на дом подходит в тех случаях, когда человек находится в сознании, может взаимодействовать с врачом, а предварительная оценка не указывает на непосредственную угрозу жизни. Бригада приезжает по указанному адресу, проводит медицинский осмотр, измеряет давление и пульс, оценивает дыхание, неврологические признаки и степень алкогольной интоксикации. При необходимости используется ЭКГ и другие доступные способы диагностики. Затем врач определяет схему лечения и объясняет родственникам, какие рекомендации нужно соблюдать в течение следующих часов.
    Ознакомиться с деталями – [url=https://3.vyvod-iz-zapoya-reutov4.ru/]вывод из запоя на дому[/url]

    # setembro 13, 2026
  50. Richardemops Richardemops

    С пациентом работают профильные специалисты, которые оценивают состояние и подбирают безопасный план помощи.
    Ознакомиться с деталями – [url=https://3.narcolog-na-dom-voronezh0.ru/]нарколог на дом цена Воронеж[/url]

    # setembro 13, 2026

Deixe um comentário

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