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

  3. Pstewartaudio.nl Pstewartaudio.nl

    free bingo no deposit win real money united states, new zealandn poker online free game
    and usa online what does a cage cashier do at a casino – Pstewartaudio.nl – no deposit bonus codes, or the best online gambling sites uk

    # junho 21, 2026
  8. Georgina Georgina

    online gambling laws in uk, are there poker machines in south united kingdom and are
    casino winnings taxable usa, or new zealandn online pokies min $5
    deposit

    my blog – free roulette simulator game, Georgina,

    # junho 21, 2026
  13. Trinidad Trinidad

    united kingdom gambling news, uk no deposit boku live casino, Trinidad, bonus 2021 and usa casino news, or united
    kingdom no deposit casino bonuses

    # junho 21, 2026
  15. Debra Debra

    win money instantly usa no deposit, play free online tambola
    game for real money in india (Debra) pokies nz and best pokies united kingdom, or best canada poker sites

    # junho 21, 2026
  16. Alfonso Alfonso

    legal gambling age in united states, casinos in ontario canada and new australian mgm online gambling app (Alfonso) casinos no deposit bonus, or minimum dollar 5 deposit
    casino australia

    # junho 21, 2026
  17. Jenni Jenni

    online casino canada easy withdrawal, money poker online usa and usa mobile casino bonus, or most legit online chickasaw casino thackerville ok (Jenni) united states

    # junho 21, 2026
  20. Ernestina Ernestina

    an canadian casino, las vegas casino what makes online casinos interesting [Ernestina] usa
    and best online pokies in new zealand with neosurf,
    or united kingdom roulette betting strategy

    # junho 21, 2026
  27. kèo nhà cái kèo nhà cái

    It’s continually awesome when you can not only be informed, but also entertained! I’m sure you had fun writing this article. Regards, Clotilde.

    # junho 22, 2026
  32. Williammaw Williammaw

    Статья о преодолении сложных боссов
    [url=https://vita63.ru]как сделать секс игрушку[/url]

    # junho 22, 2026
  35. Deneen Deneen

    south united states casinos, united kingdom casino best craps table odds in vegas (Deneen) vegas and united statesn real money casino,
    or new zealandn online gambling sites

    # junho 22, 2026
  40. Terrie Terrie

    poker united statesno gratis, new zealandn express zahlung online hallmark casino no rules bonus [Terrie] and all united statesn 10 cent
    bingo, or 100 slots bonus usa

    # junho 22, 2026
  49. Latashia Latashia

    free chip no deposit rewards casino heist – Latashia – bonus united states, what slot machine are called in australia and total poker usa,
    or canadian pokies free spins

    # junho 22, 2026

Deixe um comentário

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