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

  8. Timmy Timmy

    virtual poker with friends uk, best online casinos new zealand and fastest paying online free credit no deposit casino malaysia 2022, Timmy,
    usa, or sun bingo uk

    # setembro 28, 2026
  13. Chelsea Chelsea

    best online slot usa, top 50 casinos in usa and free spins no deposit seven winds casino reviews (Chelsea) uk new, or top online pokies and casinos in united states 4k

    # setembro 28, 2026
  15. Julienne Julienne

    1 dollar minimum deposit casino uk, earn money online easypaisa;
    Julienne,
    pokies free spins on sign up australia and new zealandn online pokies bonus,
    or best nz casino bonuses

    # setembro 28, 2026
  19. Porter Porter

    25 free spins casino new zealand, best payout online casino united states
    and free spins no deposit united statesn pokies, or casino with no deposit united kingdom bonuses

    Feel free to surf to my webpage: what casinos (Porter)

    # setembro 28, 2026
  20. Gregg Gregg

    top 10 usa casinos, casino sites usa no deposit bonus and australian gambling law, or carnival glory casino games (Gregg) classic uk

    # setembro 28, 2026
  21. Dannielle Dannielle

    are pokies open in new zealand, united kingdom roulette green payout calculator
    (Dannielle) for mobile
    phones and no deposit poker bonus usa 2021, or casino in montreal
    united states

    # setembro 28, 2026
  23. Ricardolem Ricardolem

    Помощь можно получить анонимно, с аккуратным оформлением и внимательным отношением к личным данным.
    Ознакомиться с деталями – https://kapelnica-ot-zapoya-moskva15.ru/

    # setembro 28, 2026
  24. Marilou Marilou

    united statesn roulette builders, online casino magic red (Marilou) jack milwaukee and does united states have casinos, or native united statesn tribal casinos

    # setembro 28, 2026
  25. Astrid Astrid

    5$ deposit casino canada, best deposit bonus uk and online casino uk free bonus no deposit,
    or all united kingdom bingo lantana

    Stop by my blog post gambling credit card refund (Astrid)

    # setembro 28, 2026
  29. ThomasDaype ThomasDaype

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

    # setembro 28, 2026
  32. Andra Andra

    free poker sites uk, united states roulette rules and all australian casino bonus codes, or gambling commission usa

    Feel free to visit my web-site :: bingo generator number caller (Andra)

    # setembro 28, 2026
  37. ThomasDaype ThomasDaype

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

    # setembro 28, 2026
  38. Moshe Moshe

    joker online casino canada, casino games canada and best what is a
    winning strategy for online gambling (Moshe) casino united kingdom real money,
    or best online casinos australia 2021

    # setembro 29, 2026

Deixe um comentário

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