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

  5. Charlessiz Charlessiz

    В этой статье мы говорим о важности поддержки в процессе выздоровления. Рассматриваются семьи, группы поддержки, специалисты и онлайн-ресурсы, которые могут сыграть решающую роль в избавлении от зависимости.
    Продолжить изучение – [url=https://ym-log.ru/zdorove/narkolog-na-dom-nedorogo-reutov]анонимный нарколог на дом реутов[/url]

    # setembro 14, 2026
  7. JosephShils JosephShils

    Запой отличается от единичного эпизода употребления алкоголя тем, что человек несколько дней или дольше регулярно принимает спиртное, испытывая все более тяжелое похмелье при попытке остановиться. Формируется физическая потребность в новой дозе, поэтому самостоятельно выйти из этого состояния становится сложнее. Чем дольше продолжается запой, тем выше вероятность обезвоживания, нарушений сна, тревожных и депрессивных расстройств, обострения болезней сердца, печени, поджелудочной железы и других органов.
    Дополнительная информация – http://www.google.com.hk/url?sa=t&url=https://n.vyvod-iz-zapoya-v-krasnoyarske17.ru

    # setembro 14, 2026
  15. Myra Myra

    united kingdom online casino blackjack real
    estate bbb (Myra) money no
    deposit bonus, dollar 5 deposit online casino united states and fast withdrawal online casino united states, or australian open gambling

    # setembro 14, 2026
  17. Bobby Bobby

    play free online games earn real money (Bobby) casino united states that accept paysafe, bingo
    canada login and casino bonus usa, or new casino canada

    # setembro 14, 2026
  20. Eloisa Eloisa

    80 free spins no deposit uk, canadian slot machines online and canada bingo sites, or united kingdom online real pokies

    Also visit my site: intertops casino lobby (Eloisa)

    # setembro 14, 2026
  24. Leslie Leslie

    pokies online australia reviews, online gambling usa law and united statesn online pokies sign up bonus, or no
    deposit when is soboba casino going to open back up (Leslie) usa

    # setembro 14, 2026
  26. William William

    play online poker united states, usa gambling ranking and best
    online poker sites for united kingdoms, or free games win real money no deposit uk

    Here is my homepage: side bet table blackjack [William]

    # setembro 14, 2026
  35. Brittney Brittney

    free pokies canada aristocrat, 888 poker app united kingdom and online
    bingo usa, or best real money poker app usa

    my website :: hard rock casino cancun mexico, Brittney,

    # setembro 14, 2026
  40. Quinn Quinn

    mobile slots no deposit bonus usa, united kingdom roulette free download and best sign up bonus casino united kingdom, or real money poker apps united states

    Stop by my web page: is trading the same as gambling (Quinn)

    # setembro 14, 2026
  44. Claribel Claribel

    do you need a gambling licence for sweepstake (Claribel) affiliates usa, does canada have slot machines and canadian pokies winners, or casino united statesn poker 2

    # setembro 14, 2026
  45. Mariana Mariana

    australia casino best online casino games mac (Mariana) state united,
    is it legal to play online slots in australia and gambling times usa, or chukchansi
    gold casino

    # setembro 14, 2026
  50. Lamont Lamont

    real money united statesn online win-river casino bingo (Lamont), free spins pokies in canada and free bonus no deposit casino usa, or canadian casino guide 2021 review

    # setembro 14, 2026

Deixe um comentário

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