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

  19. AlfonsoLag AlfonsoLag

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

    # setembro 10, 2026
  23. Delmar Delmar

    united statesn casino legislation nsw – Delmar – no deposit
    free spins, duke nukem forever slot machine jackpot and mobile poker sites usa,
    or united kingdom civil war poker tables

    # setembro 10, 2026
  27. AlfonsoLag AlfonsoLag

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

    # setembro 10, 2026
  29. AlfonsoLag AlfonsoLag

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

    # setembro 10, 2026
  32. Willarddom Willarddom

    Наркологическая клиника использует стандарт безопасности, при котором схема лечения назначается только по результатам осмотра. Самый дорогой набор препаратов не означает самый качественный вариант. Важнее, чтобы лечение соответствовало состоянию пациента и проводилось лицензированным специалистом. Именно индивидуальный подбор помогает провести вывод из запоя безопаснее.
    Ознакомиться с деталями – http://alt1.toolbarqueries.google.pt/url?q=https://3.vyvod-iz-zapoya-moskva011.ru

    # setembro 11, 2026
  33. Lelandpet Lelandpet

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

    # setembro 11, 2026
  34. Gregoryfeeli Gregoryfeeli

    Нарколог оценивает не только сам факт употребления, но и выраженность нарушений. Некоторые признаки указывают, что лечение на дому может оказаться недостаточным. Врач обращает внимание на уровень сознания, пульс, артериальное давление, дыхание, степень обезвоживания, поведение и наличие сопутствующей патологии. При следующих симптомах важно не откладывать медицинскую помощь.
    Дополнительная информация – https://cse.google.ht/url?sa=i&url=https://4.vyvod-iz-zapoya-moskva011.ru

    # setembro 11, 2026
  36. Melina Melina

    united kingdom online slots casino, online united statesn roulette simulator and
    canada online gambling double or nothing (Melina) laws, or bet365 craps odds usa

    # setembro 11, 2026
  37. Isabelle Isabelle

    top new united statesn online winstar casino birthday
    specials – Isabelle -, real money united statesn pokies and real money slots app canada,
    or uk casino stocks

    # setembro 11, 2026
  38. Jeffry Jeffry

    canadian online bingo games, pokies meaning australia and uk casinos free spins, or free evil genius 2 casino
    items (Jeffry) bonus united states

    # setembro 11, 2026
  40. Dakota Dakota

    minimum deposit casinos usa, bet365 free big daddy casino games (Dakota)
    usa and free online pokies win real money united
    kingdom, or new zealandn online casino pokies

    # setembro 11, 2026
  41. Brenthutty Brenthutty

    Затяжной запой способен заметно нарушить работу нервной системы, сердца, сосудов, печени и почек. Когда организм длительное время получает алкоголь, резкий отказ иногда сопровождается тяжелой абстиненцией: появляется тревожность, бессонница, тремор, тошнота, скачки давления, слабость и дезориентация. Вывод из запоя в Екатеринбурге проводится как медицинское лечение, цель которого — оценить общее самочувствие, уменьшить обезвоживание, восстановить водно-электролитный баланс и своевременно выявить признаки осложнений. Если состояние нестабильно, обращаться к специалистам нужно без промедления.
    Ознакомиться с деталями – [url=https://4.vyvod-iz-zapoya-v-ekaterinburge16.ru/]анонимный вывод из запоя Екатеринбург[/url]

    # setembro 11, 2026
  43. Madge Madge

    new zealandn pm blackjack, winner slots uk and online poker real money usa 2021, or united statesn slots miami

    My web-site how to win e bingo (Madge)

    # setembro 11, 2026

Deixe um comentário

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