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

  1. Terrydak Terrydak

    Рекомендации строятся вокруг состояния человека, а не по универсальному шаблону для всех случаев.
    Узнать больше – [url=https://vyvod-iz-zapoya-moskva15-1.ru/]вывод из запоя в стационаре москва[/url]

    # setembro 20, 2026
  2. RafaelMex RafaelMex

    Городская среда Петрозаводска со сменой ветров с Онежского озера, короткими сумерками и сезонными перепадами влажности может усиливать тревожность в вечерние часы. Мы учитываем это с момента первого контакта: согласованная парковка, отдельный вход без вывесок, короткая регистрация без «толстых анкет», приглушённый тёплый свет в зоне ожидания и отсутствие громких объявлений. Родственникам предоставляются «тихие окна» связи — лаконичные апдейты в фиксированное время, чтобы не перегружать пациента и не дёргать команду в критические окна наблюдения. Такой «мягкий» контур снижает сенсорную нагрузку, стабилизирует вариабельность ЧСС к сумеркам и сокращает число импульсивных просьб «усилить на ночь».
    Разобраться лучше – [url=https://narkologicheskaya-klinika-petrozavodsk15.ru/]наркологические клиники алкоголизм[/url]

    # setembro 20, 2026
  3. Patrickcaumn Patrickcaumn

    Соблюдаем конфиденциальность, бережно общаемся с пациентом и его близкими на каждом этапе.
    Ознакомиться с деталями – [url=https://vyvod-iz-zapoya-podolsk77.ru/]вывод из запоя на дому московская область[/url]

    # setembro 20, 2026
  4. Patrickcaumn Patrickcaumn

    При продолжительном запое в крови накапливаются продукты распада этанола, нарушается работа нервной, сердечно-сосудистой, пищеварительной и других систем. Человек может испытывать головной боль, тошноту, рвоту, тревогу, бессонницу, выраженную слабость, тремор, скачки артериального давления. Абстинентный синдром развивается после резкого отказа от спиртного и в тяжелых случаях способен сопровождаться галлюцинациями, судорожных припадками, паническими атаками, нарушением поведения и угрозой для жизни. Поэтому вывод из запоя желательно проводить под контролем специалиста, особенно если запой длится несколько суток или зависимый имеет заболевания сердца, печени, почек либо психиатрические расстройства.
    Узнать больше – [url=https://vyvod-iz-zapoya-podolsk77.ru/]вывод из запоя в стационаре[/url]

    # setembro 20, 2026
  6. Patrickcaumn Patrickcaumn

    Помощь оказывают врачи с практикой в наркологии, психиатрии и восстановительной терапии.
    Узнать больше – [url=https://vyvod-iz-zapoya-podolsk77.ru/]http://vyvod-iz-zapoya-podolsk77.ru/[/url]

    # setembro 20, 2026
  14. Patrickcaumn Patrickcaumn

    При последних признаках стандартная капельница на дому может быть недостаточной. В таких ситуациях врач рассматривает неотложная госпитализацию, поскольку существует риск инсульта, сердечной недостаточность, отека мозга и других опасных осложнений. В тяжелых случаях безопаснее проводить лечение запоя в стационаре, где пациент находится под постоянным наблюдением медицинского персонала и при необходимости получает экстренное лечение.
    Ознакомиться с деталями – [url=https://vyvod-iz-zapoya-podolsk77.ru/]вывод из запоя капельница[/url]

    # setembro 20, 2026
  22. j88 j88

    Hi there, I read your new stuff regularly. Your writing style is awesome, keep doing what you’re doing!

    # setembro 20, 2026
  26. Lilliana Lilliana

    best way to win united kingdom roulette, open casino in australia
    and online casino 5 dollar minimum deposit united states,
    or best slot games online uk

    Take a look at my site: yo eleven craps – Lilliana,

    # setembro 20, 2026
  28. mostbet_kusa mostbet_kusa

    mostbet bonusni qanday olish [url=https://ivtextil-opt.ru/casino-as-a-business/]https://ivtextil-opt.ru/casino-as-a-business/[/url]

    # setembro 20, 2026
  35. Madge Madge

    free roulette wheel numbers online – Madge, casinos united kingdom, best slots online
    canada and united statesn gambling legislation, or chukchansi gold casino

    # setembro 20, 2026

Deixe um comentário

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