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

  4. Freda Freda

    best gambling website canada, the united states casino video and no deposit bonus slots
    australia, or uk gambling forum

    Stop by my blog; bingo free download games – Freda –

    # junho 24, 2026
  6. Delilah Delilah

    new no deposit casino canada, how to memorize united statesn roulette wheel and free spins bonus codes uk, or volt casino 50 free spins (Delilah) united states age

    # junho 24, 2026
  7. Manuela Manuela

    legit online casinos usa, united statesn online casinos and free online united kingdom casino,
    or what are the rules for playing bingo (Manuela) there pokies in new united
    states

    # junho 24, 2026
  9. Charissa Charissa

    how many native united statesn casinos are there, online best casino wins 2022, Charissa, real money free bonus australia and united statesn pokie machine hack, or play poker in south united states

    # junho 24, 2026
  11. Kenton Kenton

    is there a casino how do you lose in craps [Kenton] toronto canada,
    usa casino club mobile and new zealand real money casino,
    or fishin freuky slot

    # junho 24, 2026
  12. JulioFer JulioFer

    Статья посвящена анализу текущих трендов в медицине и их влиянию на жизнь людей. Мы рассмотрим новые технологии, методы лечения и значение профилактики в обеспечении долголетия и здоровья.
    Получить исчерпывающие сведения – [url=https://nalatty.com/semya/sozavisimost-i-alkogolizm-lovushka-domashnego-lecheniya-iz-kotoroj-nuzhen-professionalnyj-vyxod/]нарколог на дом вывод[/url]

    # junho 24, 2026
  13. Irene Irene

    united kingdom poker deluxe 2, when did online gambling start
    in uk and how to get a casino players card (Irene) many gambling
    casinos are in the united states, or united kingdom no deposit casino bonuses

    # junho 24, 2026
  15. Milton Milton

    canadian approved online casinos, new gambling sites usa
    and top 100 usa is there a casino in southampton (Milton) sites, or play online
    pokies usa

    # junho 24, 2026
  16. JamesHab JamesHab

    Публикация охватывает основные направления развития современной медицины. Мы обсудим значимость научных исследований, инноваций в лечении и роли общественного участия в формировании системы здравоохранения.
    Нажмите, чтобы узнать больше – [url=http://ladies-paradise.ru/kak-vyibrat-kliniku-dlya-vyivoda-iz-zapoya-kriterii-i-rekomendatsii/]психиатр на дом в Москве[/url]

    # junho 24, 2026
  17. kasyno online opinie kasyno online opinie

    Your idea is outstanding; the issue is something that not enough persons are speaking intelligently about. I’m very happy that I stumbled throughout this in my seek for one thing regarding this.

    # junho 24, 2026
  19. Miranda Miranda

    united kingdom online slots casino, ainsworth poker machines australia and
    roulette online united states, or blackjack spray (Miranda) cosh uk

    # junho 24, 2026
  23. Deloris Deloris

    united states online casino real money, free spin casinos united kingdom and online pokies united states no deposit signup bonus, or united
    statesn roulette spins

    Here is my webpage … responsible gambling refund [Deloris]

    # junho 24, 2026
  27. Randy Randy

    online casino united states that accept paysafe,
    united kingdom idol time slot and new casino sites uk no deposit
    bonus, or united statesn roulette strategy uk

    Also visit my web-site: blackjack side hustle (Randy)

    # junho 24, 2026
  30. Vicki Vicki

    casino amusements united kingdom, no deposit online australian casinos and do you
    have how to make real money in second life
    2022 (Vicki) pay tax on casino winnings in canada, or betsoft no
    deposit bonus united states

    # junho 24, 2026
  32. Petererype Petererype

    Этот обзор посвящен успешным стратегиям избавления от зависимости, включая реальные примеры и советы. Мы разоблачим мифы и предоставим читателям достоверную информацию о различных подходах. Получите опыт многообразия методов и найдите подходящий способ для себя!
    Погрузиться в детали – [url=https://freshbroccoli.ru/narkolog-na-dom/]clinica plus[/url]

    # junho 24, 2026
  35. PatrickVAF PatrickVAF

    Текст посвящён распространённым мифам о зависимости и их развенчанию. Мы предоставим научно обоснованную информацию и дадим рекомендации по выбору эффективного способа борьбы с зависимым поведением.
    Практические советы ждут тебя – [url=https://womaan.ru/zdorove/kogda-pyot-odin-stradaet-vsya-semya-kak-blizkim-vybratsya-iz-sozavisimosti.html]вывод из запоя на дому цена[/url]

    # junho 24, 2026

Deixe um comentário

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