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

  1. JeffreyTof JeffreyTof

    В этой публикации мы предложим ряд рекомендаций по избавлению от зависимостей и успешному восстановлению. Мы обсудим методы привлечения поддержки и важность самосознания. Эти советы помогут людям вернуться к нормальной жизни и стать на путь выздоровления.
    Подробная информация доступна по запросу – [url=https://zhenskaja-mechta.ru/kogda-rodstvenniku-nuzhna-srochnaya-pomoshh-posle-dlitelnogo-upotrebleniya-alkogolya]выезд на дом нарколога анонимно[/url]

    # junho 23, 2026
  2. Candra Candra

    online diamond joes casino dubuque (Candra) usa bonus,
    casino fun usa and australia slot online, or top online pokies
    and casinos united statesn league

    # junho 23, 2026
  3. almucarfmUser almucarfmUser

    https://almunecarfm.es/
    ¿Estás buscando soluciones de radio online almuñécar, descubre Almuñécar FM. Somos una plataforma pensada para ofrecerte las mejores soluciones. Descubre todo lo que ofrecemos y sorpréndete con nuestro servicio.

    # junho 23, 2026
  14. Osvaldo Osvaldo

    cash frenzy skyvegas 1000 free spins – Osvaldo –
    slots, casino nsw united states and online slots free bonus no deposit uk, or bingo united kingdom on gsn

    # junho 23, 2026
  19. Annie Annie

    usa online does naskila casino have blackjack (Annie) fast payouts,
    list of casinos in usa and free $30 pokies united states, or united kingdom casino slots

    # junho 23, 2026
  20. Novella Novella

    best online casino games in south africa (Novella) new casino sites
    usa, bet365 united statesn roulette tips and online casino franchise uk, or no
    deposit slots uk

    # junho 23, 2026
  21. Kiera Kiera

    casino chains uk, where can united statesns play roulette online and no registration casino usa,
    or list chances of hitting consecutive blackjacks (Kiera) casinos in canada

    # junho 23, 2026
  22. Emanuel Emanuel

    online casinos in ontario australia, best poker birthday bonus online casino malaysia –
    Emanuel – new zealand
    and usa slot machines, or the top online pokies and
    casinos in australia day

    # junho 23, 2026
  26. Aleida Aleida

    crypto gambling sites uk, good gambling sites uk and australia online
    poker legal, or list of casinos in canada

    Review my site – black hawk casino bus, Aleida,

    # junho 23, 2026
  27. Modesto Modesto

    best online gambling harm (Modesto)
    pokies united states casino, united statesn online casino legal and free online gambling united states, or gambling facts australia

    # junho 23, 2026
  28. Hugo Hugo

    online pokies reviews australia, big poker tournaments uk and online slot
    casino luigi, Hugo, uk, or casino in christchurch new zealand

    # junho 23, 2026
  29. RodgerUnush RodgerUnush

    Эта публикация посвящена актуальным вопросам современной медицины и здравоохранения. Мы обсудим новейшие технологии диагностики и лечения, а также их влияние на продолжительность и качество жизни. Читатель найдет здесь информацию о научных исследованиях и перспективных разработках, доступно изложенную для широкой аудитории.
    Получить полную информацию – [url=https://refine.org.ru/information/65234-trevozhnye-simptomy-alkogolnoy-intoksikatsii-i-pravila-pervoy-pomoschi]вывести из запоя[/url]

    # junho 23, 2026
  30. Wilton Wilton

    ausaa ca casino, duke nukem forever slot machine jackpot and cash poker online casinos with practice play (Wilton) canada, or
    best free poker sites united states

    # junho 24, 2026
  31. Tracy Tracy

    real online pokies in united states, online casino review usa and bonausaa slot volatility,
    or roulette online casino australia

    my webpage baccarat net worth (Tracy)

    # junho 24, 2026
  48. Ahmad Ahmad

    best uk slot bonus, casino offers no deposit usa and most
    popular casino games usa, or best casino in australia indian online casino
    quora (Ahmad)

    # 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 *