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

  4. Latosha Latosha

    no deposit bonus casino united states, wild life slots australia and how
    to hack canadian pokies, or online gambling canada illegal

    My site … craps strategies for beginners (Latosha)

    # setembro 22, 2026
  6. Sibyl Sibyl

    best online pokies united states casino, play free australian poker
    machines and gambling issues casinos in ruidoso nm open (Sibyl) australia,
    or top 5 online pokies united states

    # setembro 22, 2026
  9. Maik Maik

    native united statesn casino rights, slot free spins no deposit uk and auto roulette online or app to play in united states, or
    internet gambling uk

    My website blackjack weapon illegal (Maik)

    # setembro 22, 2026
  11. Maureen Maureen

    80 free play casino codes; Maureen, spins
    no deposit uk, bet365 new zealandn roulette instructions and bet365 new zealandn roulette help,
    or new zealandn slots app

    # setembro 22, 2026
  12. Kellysaf Kellysaf

    Состояние пациента отслеживается на каждом этапе, от первичной консультации до дальнейших рекомендаций.
    Изучить вопрос подробнее – [url=https://nadomu1.kapelnica-ot-zapoya-v-moskve14-1.ru/]http://nadomu1.kapelnica-ot-zapoya-v-moskve14-1.ru/[/url]

    # setembro 22, 2026
  17. Chi Chi

    australian pm san manuel blackjack minimum (Chi), united states casino online
    and where can i play poker online for real money in australia, or usa online casino ratings

    # setembro 22, 2026
  19. 1win_zoPl 1win_zoPl

    1win сколько выводят на о деньги [url=https://3rebenka.ru/how-to-choose-sports-matches-for-betting-success/]https://3rebenka.ru/how-to-choose-sports-matches-for-betting-success/[/url]

    # setembro 22, 2026
  20. Carrol Carrol

    top casino in canada for real money, casino how many numbers in a roulette table (Carrol) cambridge usa and usa online casino for usa players, or
    sun bingo uk

    # setembro 22, 2026
  22. Sherryl Sherryl

    ontario australia online casino, online casino uk reviews and are
    the top online pokies and casinos in canada free, or
    fully cashable no deposit bonus australia

    My website bingo learn english, Sherryl,

    # setembro 22, 2026
  23. Albertina Albertina

    new 2021 when did the revel casino open (Albertina) uk, free online games to win real money no deposit australia
    and best casinos australia online, or united statesn casinos still accepting skrill

    # setembro 22, 2026
  24. Jamesblort Jamesblort

    Вывод из запоя — комплексное медицинское лечение, направленное на безопасное прекращение длительного употребления алкоголя, уменьшение проявлений абстинентного синдрома и постепенное восстановление организма. В Красноярске помощь может быть организована на дому или в стационаре клиники в зависимости от тяжести состояния пациента. Врач оценивает длительность запоя, количество спиртного, возраст, сопутствующие заболевания, работу сердечно-сосудистой и нервной системы, наличие хронических патологий и признаков острых осложнений. Такая диагностика позволяет определить, можно ли провести лечение запоя на дому или больному требуется госпитализация в стационар.
    Подробнее – https://vyvod-iz-zapoya-krasnoyarsk68.ru/

    # setembro 22, 2026
  36. Cliff Cliff

    slot machines ontario united states, gambling ad canada and aristocrat free slots united
    states, or uk bingo

    my web blog :: how much money can you win at roulette – Cliff –

    # setembro 23, 2026
  38. Alice Alice

    online gambling legal in united states, real online
    money ach deposit casino (Alice) canada and pokie
    machines in united states, or free casino money united states

    # setembro 23, 2026
  39. Rochell Rochell

    new zealandn no deposit bonus casinos, $150 free no deposit casino australia and casino games with no depoised
    free bonus usa players, or free beating casino baccarat
    [Rochell] money united states

    # setembro 23, 2026
  42. DeweyBib DeweyBib

    Доктор знает, какие препараты допустимы в конкретный момент, когда показан домашний формат, а когда нужен стационар. Нарколог не должен обещать избавить от алкогольной зависимости за один раз. Сначала требуется вывести пациента из острого состояния, восстановить основные показатели и сформировать план дальнейшего лечения алкоголизма.
    Дополнительная информация – [url=https://1.vyvod-iz-zapoya-balashiha13.ru/]вывод из запоя в стационаре[/url]

    # setembro 23, 2026
  44. Diane Diane

    usa casinos that accept paypal, 888 poker app united
    kingdom and united kingdom best online casino, or
    vegas usa casino

    my blog – haribo gummy roulettes (Diane)

    # setembro 23, 2026
  47. Cole Cole

    200 how to get free play at chumash casino (Cole) spins no deposit usa casinos,
    poker usa artrix and bet uk casino, or best casino cities in united kingdom

    # setembro 23, 2026
  48. Mavis Mavis

    casino holdem wizard of odds [Mavis] bonus buy usa,
    100 united kingdom casino free keep online spin winnings and new zealandn online pokies minimum $5 deposit,
    or top gambling sites usa

    # setembro 23, 2026
  49. Angeles Angeles

    can you play online casino in united states, 888 poker download united states and uk
    casinos free spins, or pokerstars blackjack australia

    My web site – hire a roulette table (Angeles)

    # setembro 23, 2026
  50. Hulda Hulda

    casino game internet uk, casinos online canada and new gambling
    sites australia, or best online san andreas increase gambling
    skill [Hulda] apps uk

    # setembro 23, 2026

Deixe um comentário

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