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

792 Comentários

  1. king88 king88

    Asking questions are really pleasant thing if you are not understanding
    something fully, except this post provides good understanding yet.

    # fevereiro 1, 2026
  3. egypt visa for british citizens egypt visa for british citizens

    Write more, thats all I have to say. Literally, it seems as though you relied
    on the video to make your point. You definitely know what youre talking about, why throw away
    your intelligence on just posting videos to your weblog
    when you could be giving us something enlightening to read?

    # fevereiro 1, 2026
  4. Thomasanits Thomasanits

    Анонимный сервис обмена криптовалют ComCASH
    предоставляет конфиденциальный
    обмен цифровых активов без верификации.
    Вы можете мгновенно
    совершать обмен криптовалют, сохраняя приватность.
    Наш сервис предлагает простой процесс обмена
    и удобный интерфейс.
    Выберите безопасный
    обмен криптовалюты с ComCASH и получите защиту данных.

    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]обмен биткоина на сбербанк[/url]
    [url=https://comcash.cc/ru/exchange/DOGE-SBERRUB/create]обмен dogecoin[/url]
    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]как переводить биткоины на карту сбербанка[/url]
    [url=https://comcash.cc/ru/exchange/USDTTRC20-SBERRUB/create]как выводить биткоины на карту сбербанка[/url]
    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]обменник биткоин на сбербанк[/url]
    [url=https://comcash.cc/]биткоин обменник[/url]
    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]обменник биткоинов на рубли сбербанк[/url]
    [url=https://comcash.cc/ru/comcash-knowledgebase/news/read/13]omni layer[/url]
    [url=https://comcash.cc/]обменники криптовалют без верификации[/url]

    [url=https://comcash.cc/]обмен xrp[/url]
    [url=https://comcash.cc/]обменник крипто[/url]
    [url=https://comcash.cc/]обменять рубли на криптовалюту[/url]
    [url=https://comcash.cc/]без aml проверки[/url]
    [url=https://comcash.cc/]обменник криптовалют наличными[/url]

    # fevereiro 1, 2026
  5. https://24hrlocksmith.us.com/ https://24hrlocksmith.us.com/

    I am curious to find out what blog system you have been utilizing?
    I’m having some minor security problems with my latest site
    and I would like to find something more safeguarded.

    Do you have any solutions?

    # fevereiro 1, 2026
  11. 아이온2 대리 육성 아이온2 대리 육성

    I was wondering if you ever thought of changing the layout of
    your site? Its very well written; I love what youve got to say.
    But maybe you could a little more in the way of content so people could connect with it better.
    Youve got an awful lot of text for only having one or two
    pictures. Maybe you could space it out better?

    # fevereiro 2, 2026
  12. Kit Kit

    new zealand pokies app, online has anyone ever robbed a casino (Kit)
    usa reddit and new zealandn online pokies for real money,
    or 50 free spins thunderstruck no deposit usa

    # fevereiro 2, 2026
  13. Heath Heath

    online free casino united states, no deposit required online casino usa and free bonus no
    deposit casino usa, or free online pokies no download united kingdom

    my blog post – how to beat the roulette machine cheats [Heath]

    # fevereiro 2, 2026
  16. panecof.com panecof.com

    Hi there to every one, for the reason that I am in fact keen of reading this website’s post
    to be updated daily. It consists of pleasant material.

    Feel free to surf to my site ipl match gambling (panecof.com)

    # fevereiro 2, 2026
  17. https://g2.salo666.dev/ https://g2.salo666.dev/

    You actually make it appear so easy with your presentation but I find this topic to be really
    one thing that I think I’d never understand. It seems too complex and extremely huge for me.
    I am having a look forward to your next publish, I will try to
    get the hang of it!

    # fevereiro 2, 2026
  18. Austin Austin

    Today, I went to thesis about gambling in the philippines, Austin, beachfront with my children. I found a sea shell and gave
    it to my 4 year old daughter and said “You can hear the ocean if you put this to your ear.”
    She placed the shell to her ear and screamed. There was a hermit crab inside and it pinched her ear.
    She never wants to go back! LoL I know this is completely off topic but I had to tell someone!

    # fevereiro 2, 2026
  20. Ellen Ellen

    I was suggested this blog by my cousin. I am not sure whether this post is written by him as no one else know
    such detailed about my problem. You’re incredible!
    Thanks!

    Look into my web blog; are there casinos in az (Ellen)

    # fevereiro 2, 2026
  22. Kit Kit

    online pokies reviews australia, usa casino club mobile and real money slots app canada,
    or canadian online instant play casino free
    promo – Kit, sign up no deposit bonus

    # fevereiro 2, 2026
  23. Catherine Catherine

    paypal gambling sites canada, $150 free no deposit casino australia and 5 dollar
    deposit online casino usa, or united statesn gambling
    regulations

    Also visit my homepage best simple craps strategy (Catherine)

    # fevereiro 2, 2026
  24. visas for egypt visas for egypt

    Hey there! I’ve been following your web site for some time now
    and finally got the bravery to go ahead and give you a
    shout out from Lubbock Texas! Just wanted to tell you keep up the excellent job!

    # fevereiro 2, 2026
  27. Jaxon Jaxon

    best australia casino no deposit bonus, new usa gambling sites and new zealand real money casino, or best online pokies free spins no deposit canada

    Here is my site … bgo bingo; Jaxon,

    # fevereiro 3, 2026
  28. Ashly Ashly

    best new casino age of gods (Ashly) sites usa, automatic poker dealer
    machine and poker mat nz, or real money slots new united states

    # fevereiro 3, 2026
  29. Opal Opal

    You made some really good points there. I looked on the
    net for more info about the issue and found most people will go
    along with your views on this web site.

    Also visit my blog: professional gamblers stories [Opal]

    # fevereiro 3, 2026
  33. WalterMow WalterMow

    Анонимный сервис обмена криптовалют ComCASH
    предоставляет приватный
    обмен цифровых активов без верификации.
    Вы можете анонимно
    совершать обмен криптовалют, сохраняя полную анонимность.
    Наш сервис предлагает мгновенные сделки
    и широкий выбор валют.
    Выберите безопасный
    обмен криптовалюты с ComCASH и получите быстрый результат.

    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]обменник биткоинов на рубли сбербанк[/url]
    [url=https://comcash.cc/ru/]купить matic за рубли[/url]
    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]обмен биткоин на сбербанк[/url]
    [url=https://comcash.cc/ru/exchange/USDTERC20-SBERRUB/create]обмен юсдт на сбербанк[/url]
    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]поменять биткоины на рубли в сбербанке[/url]
    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]обмен bitcoin на сбербанк[/url]
    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]обменять биткоин на рубли в сбербанке[/url]
    [url=https://comcash.cc/ru/exchange/BTC-SBERRUB/create]обмен сбер биткоин[/url]
    [url=https://comcash.cc/]обмен биткоин на карту[/url]

    [url=https://comcash.cc/]обменик крипта[/url]
    [url=https://comcash.cc/]обменник криптовалют без комиссии[/url]
    [url=https://comcash.cc/]обменник крипты[/url]
    [url=https://comcash.cc/]обменник крипты на рубли[/url]
    [url=https://comcash.cc/ru/exchange/USDTTRC20-TCSBRUB/create]usdt trc20 на тинькофф[/url]

    # fevereiro 3, 2026
  34. singapore math tuition agency singapore math tuition agency

    In the Singapore context, secondary school masth tuition іs essential for eaｒly exposure tо O-Level concepts.

    Eh, Singapore’s top ranking in international math is no
    fluke leh!

    Ϝоr households, work togetheг by means of Singapore math
    tuition’ѕ trial-and-error аreas. Secondary math tuition supports safe
    exploration. Τhrough secondary 1 math tuition, transitional anxiety fades.

    Secondary 2 math tuition іѕ tailored to
    fulfill thе requirements of varied knowing styles іn Singapore.
    Іt looks into locations suϲh as coordinate geometry tһrough secondary 2
    math tuition’ѕ interactive tools. Students ԝho engage іn secondary
    2 math tuition ߋften report reduced anxiety ԁuring exams.
    Secondary 2 math tuition promotes ⅼong-lasting retention оf mathematical
    concepts.

    Secondary 3 math exams, ⲟne yеar before
    O-Levels, stress excellence fߋr continual momentum.
    Ηigh marks aⅼlow versatile learning paths.
    They foster inclusivity іn group reѕearch studies.

    Ιn Singapore’s high-stakes education syѕtem, secondary 4 math tuition іѕ necеssary foг
    trainees preparing f᧐r the crucial Օ-Level exams tһat identify
    post-secondary pathways. Ƭhese exams ɑre critical, ɑs strong math scores can secure entry іnto top junior colleges oг polytechnics.Secondary 4 math tuition proｖides
    targeted practice օn subjects lіke calculus ɑnd vectors, helping trainees avoiⅾ typical mistakes.
    Ultimately, standing ᧐ut in thesе exams thr᧐ugh ѕuch tuition shapes future profession chances in STEM fields.

    Exams аre ɑ checkpoint, bᥙt math’s true ѵalue is as a crucial
    talent іn the AI еra, supporting genomic data analysis.

    Loving math аnd applying its principles іn everyday real-world situations is
    crucial f᧐r excelling in thｅ field.

    The practice іs important for developing a systematic approach tߋ tackling unseen ρroblems in secondary
    math exams.

    Uѕing online math tuition е-learning in Singapore helps students
    master geometry, гesulting in improved гesults in national math examinations.

    Aiyoh leh, ɗon’t panic lah, your kid ready for secondary school, support wіthout pressure.

    Look at my web blog … singapore math tuition agency

    # fevereiro 3, 2026
  35. tripskan tripskan

    I am not sure where you’re getting your information, but good topic.
    I needs to spend some time learning much more or understanding
    more. Thanks for great information I was looking
    for this information for my mission.

    # fevereiro 3, 2026
  36. Jackie Jackie

    Howdy, i read your blog occasionally and i own a similar one and i was just wondering if you get a lot of spam feedback?
    If so how do you reduce it, any plugin or anything
    you can suggest? I get so much lately it’s driving me crazy so any
    assistance is very much appreciated.

    # fevereiro 3, 2026
  37. 비아그라 구매 비아그라 구매

    안녕하세요! 정말 멋진 웹사이트입니다!!
    남자 .. 훌륭하다 .. 놀랍다 .. 즐겨찾기할 것이고 추가로 받을 건가요?
    행복하게 수많은 유용한 내용을 바로 여기 제출에서 찾았습니다, 이에 대해 추가적인 기술을
    개발 필요가 있습니다, 공유해줘서 감사합니다.
    . . . . .

    I am not sure where you are getting your information, but great topic.
    I needs to spend some time learning much more or understanding more.
    Thanks for excellent info I was looking for this info for my mission.

    # fevereiro 4, 2026
  38. homepage homepage

    of course like your web-site however you need to take a look at the spelling
    on several of your posts. Several of them are rife with spelling issues and I to find it very troublesome to tell the reality nevertheless I will definitely come back again.

    Have a look at my web page; homepage

    # fevereiro 4, 2026
  39. 구글계정판매 구글계정판매

    Oh my goodness! Amazing article dude! Thank you,
    However I am encountering troubles with your RSS.
    I don’t know the reason why I cannot join it. Is there anyone else having similar RSS problems?
    Anybody who knows the answer will you kindly respond?

    Thanx!!

    # fevereiro 4, 2026
  40. Francesca Francesca

    how do poker machines work lowest blackjack tables in vegas (Francesca) australia, online poker canada vpn and online
    poker for money usa, or online casino guide uk

    # fevereiro 4, 2026

Deixe um comentário

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