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

  2. Charleswar Charleswar

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

    # setembro 26, 2026
  5. Pamela Pamela

    new zealand bingo login, yusaon grand casino application (Pamela) review and united kingdom online poker news, or australia gambling
    sites

    # setembro 26, 2026
  7. Jerrod Jerrod

    united statesn online casinos list, $5 minimum deposit casino new zealand 2021 and interactive diablo 2 gambling amulets (Jerrod) canada, or 2021 no deposit casino usa

    # setembro 26, 2026
  8. Lashonda Lashonda

    new united statesn no deposit bonus casino 2021, real cash payout casino games (Lashonda) online money casino canada and remote gambling license usa, or casino
    in christchurch new zealand

    # setembro 26, 2026
  12. Elouise Elouise

    apple pay online casino united kingdom, european roulette hints uk and
    casino chip values usa, or uk poker forum

    my web blog … gambling games for seniors; Elouise,

    # setembro 26, 2026
  15. Bessie Bessie

    virtual poker with friends uk, gambling in ontario australia
    and cahuilla casino anza california, or netent no deposit bonus nz

    Feel free to visit my site; blackjacks kpop, Bessie,

    # setembro 27, 2026
  20. Jamel Jamel

    united states online live casino, free spins no deposit casinos canada and how to play online casino united
    states, or top online pokies and casinos real money canada

    my web-site – mahjong gambling app (Jamel)

    # setembro 27, 2026
  25. Allen Allen

    non gamstop usa casinos, the biggest casino in usa and free $30
    pokies united states, or casino classic uk

    Here is my blog post: flashcasino (Allen)

    # setembro 27, 2026
  27. Charleswar Charleswar

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

    # setembro 27, 2026
  30. Inez Inez

    united kingdom gambling news, new gambling sites usa and casinos uk online blackjack
    fruit slots, or best real money poker app usa

    Feel free to visit my page: belle terra casino, Inez,

    # setembro 27, 2026
  32. Launa Launa

    canadian online pokies no minimum deposit, united states poker tournaments and online gambling
    australia legislation, or gambling bonuses co usa

    Feel free to surf to my web page … best casino
    game bet; Launa,

    # setembro 27, 2026
  37. Maya Maya

    best rated payout online recent winners at kickapoo casino (Maya) nz, is gambling
    illegal in the uk and roulette online united states, or united kingdom indians casinos

    # setembro 27, 2026
  38. Robertmok Robertmok

    Центр проводит не только срочный вывод из запоя. Комплексное лечение алкогольной зависимости может включать детокс, медикаментозное восстановление, психотерапию, кодирование, психологическую поддержку, работу с родственниками и реабилитационные программы. Такой подход помогает не ограничиваться снятием похмельного синдрома, а начать лечение причин зависимого поведения и сформировать план возвращения к трезвой жизни.
    Изучить вопрос подробнее – [url=https://1.vyvod-iz-zapoya-moskva1-13.ru/]moskva-vyvod-iz-zapoya[/url]

    # setembro 27, 2026
  40. Ernesto Ernesto

    top 10 online seneca casino age requirement (Ernesto) sites usa, list of casinos in usa and mobile poker sites usa, or how to win at united statesn roulette

    # setembro 27, 2026
  44. Blanche Blanche

    united statesn online casinos real money, new zealandn express zahlung online casino and best online real pokies australia, or bet365
    craps strategies usa

    Check out my web site … 15 no deposit bonus [Blanche]

    # setembro 27, 2026
  45. Gita Gita

    united statesn free pokies games, how to play online
    poker for money in canada and united statesn real money casino in monticello ar, Gita,, or how to
    play pokies in canada

    # setembro 27, 2026
  47. Ellis Ellis

    online pokies canada legal, no deposit bonus uk online casinos and online
    pokies united states no deposit signup bonus,
    or united statesn casino free spins no deposit

    Take a look at my web site – street bets roulette (Ellis)

    # setembro 27, 2026
  49. Lenora Lenora

    united statesn gambling, deposit £1 jumba casino bonus codes 2022 (Lenora)
    bonus usa and aristocrat free slots united states,
    or new no deposit bonus codes 2021 australia

    # setembro 27, 2026
  50. Naomi Naomi

    best online pokie canada, casimba collectible casino chips for sale – Naomi, nz login and online casino games uk, or united kingdom casino slots

    # setembro 27, 2026

Deixe um comentário

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