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

  2. AndreMoift AndreMoift

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

    # setembro 6, 2026
  20. Lamontglact Lamontglact

    Заявку можно оставить в любое время, специалист быстро сориентирует по дальнейшим действиям.
    Ознакомиться с деталями – [url=https://3.narkologicheskaya-klinika-v-krasnoyarske17.ru/]наркологическая клиника стационар[/url]

    # setembro 6, 2026
  23. Janine Janine

    top 10 usa casinos, african new zealandns
    gambling in vegas and online pokies paysafe canada, or best
    no deposit casinos aus

    Here is my homepage: bingo with numbers 1-10 (Janine)

    # setembro 6, 2026
  27. True Tales podcast True Tales podcast

    This was a genuinely enjoyable read; your attention to detail made the information feel trustworthy. It clarified several points that are often overlooked. Readers will get a great deal from this post!

    # setembro 7, 2026
  28. JamesThuro JamesThuro

    Медицинская публикация представляет собой свод актуальных исследований, экспертных мнений и новейших достижений в сфере здравоохранения. Здесь вы найдете информацию о новых методах лечения, прорывных технологиях и их практическом применении. Мы стремимся сделать актуальные медицинские исследования доступными и понятными для широкой аудитории.
    Погрузиться в детали – [url=https://evaclinica.ru/chastnyy-reabilitatsionnyy-tsentr/]частный реабилитационный центр[/url]

    # setembro 7, 2026
  29. BryanDwedy BryanDwedy

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

    # setembro 7, 2026
  34. Ina Ina

    no deposit australian pokies, best payout online casino united states and
    casino in united states, or play poker in south united states

    Also visit my web page :: pyansa sa illegal gambling 2021 –
    Ina
    –

    # setembro 7, 2026
  40. Wilmer Wilmer

    united statesn online casinos list, best non usa
    casino sites and casino listings usa, or united statesn online
    no deposit pokies

    my web site … blackjack player odds (Wilmer)

    # setembro 7, 2026
  41. Suzette Suzette

    online pokies free spins on sign up canada, best united kingdom
    online casino paypal and online central valley casino
    [Suzette] uk casino club, or free cash bonus no deposit casino canada

    # setembro 7, 2026
  42. Brianked Brianked

    Вывод из запоя в Реутове в наркологической клинике «Детокс» — это комплексное лечение алкогольной интоксикации, абстинентного синдрома и связанных с длительным употреблением спиртного нарушений. Медицинская помощь доступна круглосуточно: нарколог может провести осмотр и лечение на дому либо предложить госпитализацию в стационар при тяжелых симптомах. Главный принцип работы — безопасность человека, анонимность обращения, индивидуальный подбор лекарственных средств и постоянный контроль самочувствия. Врач учитывает количество выпитого, длительность запоя, возраст, наличие хронических заболеваний, показатели давления, пульс, особенности психики и предыдущий опыт лечения алкоголизма.
    Дополнительная информация – [url=https://3.vyvod-iz-zapoya-reutov4.ru/]вывод из запоя на дому[/url]

    # setembro 7, 2026
  45. Janette Janette

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

    my blog … russian roulette daycore – Janette –

    # setembro 7, 2026
  46. KennethOveks KennethOveks

    Если состояние становится тяжелым, необходима медицинская помощь. При выраженной интоксикации, делирии и других острых нарушениях жизненно важно своевременно обратиться к специалистам. Клиника определяет, требуется ли стационар, постоянное наблюдение или возможно лечение в другом формате.
    Изучить вопрос подробнее – [url=https://2.narkologicheskaya-klinika-v-krasnoyarske17.ru/]платная наркологическая клиника[/url]

    # setembro 7, 2026
  49. Rodney Rodney

    fully cashable no deposit bonus canada, free online united
    kingdom roulette simulator and online poker for money usa, or online casino slots
    real money australia

    Look at my web site gambling affiliate conference [Rodney]

    # setembro 7, 2026

Deixe um comentário

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