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

9.321 Comentários

  1. 888starz_wdSt 888starz_wdSt

    Hammaga salom, to’rt-besh oydan buyon shu yerda tikaman, shuning uchun fikrimni bo’lishmoqchiman. Ochig’i, avvaliga unchalik ishongan emasman — oldin ikkita konторada yechib olishda nerv buzilgandi. Bu yerda esa hozircha meni ortiqcha asabga tegmadi.

    O’yinlar miqdori haqiqatan ham ko’p — men sanamadim, lekin chamasi 5000 dan oshadi. Asosan Pragmaticning mashhur o’yinlarini aylantiraman: Gates of Olympus, Sweet Bonanza. Play’n GOdan Book of Dead ham turibdi, Yggdrasilning eskirmagan ishlari ham uchraydi. Faqat bitta narsa jonimga tegdi — provayder bo’yicha saralash biroz chala, kerakli o’yinni topguncha biroz varaqlaysan.

    Live-kazino o’zi bir olam. Evolution Gamingning jonli stollari bor, tirik krupyelar bilan blackjack, ruletka, Crazy Time kabi shou-o’yinlar ham oqshomlari juda gavjum. Internetim Toshkentda yaxshi, shu sabab freeze sezmadim, ammo mobil internetda goh-goh sifat pasayadi. Yangi ro’yxatdan o’tganlarga birinchi depozitga 100% bonus va 100 bepul spin beriladi, otыgrыsh sharti 40x atrofida — rostini aytsam osonlikcha yopilmaydi, shuning uchun men ko’pincha bonussiz o’ynayman. Deposit qilmasdan promo vaqti-vaqti bilan bo’ladi, hozirgi kodlarni [url=https://sohailkaswani.com]888starz uz[/url] orqali tekshirib ko’ring.

    Registratsiya tez tugadi, eng kam to’ldirish kichkina — o’zim bir necha dollarlik summa bilan sinab ko’rgandim. Pul kiritish-chiqarishda Visa va Mastercard, Skrill, Neteller va Bitcoin va boshqa kripto bor. USDT bilan pul olish menda yarim soat oldi, karta bilan esa bir sutkacha kutdim. Hujjat tekshiruvi talab qilingan edi, albatta — ID surati yubordim, ertasiga tasdiqlashdi.

    Telefonda ishlash qulay, Android uchun ilova saytdan yuklanadi, sayt versiyasi ham yaxshi ishlaydi. Support chatda ruschada tez javob beradi, o’zbekcha bo’lsa har doim ham emas — aynan shu joyi ozgina cho’ktiradi. Litsenziyasi Kyurasao, demak bizda rasmiy tartibga solinmagan — buni bilib turing. Men har oy budjet belgilab qo’yaman va shundan oshirmayman.

    # agosto 14, 2026
  4. Narkologicheskaya pomosh_mpKa Narkologicheskaya pomosh_mpKa

    Здорова, народ Муж просто потерял себя Соседи стучат в стену Нужен врач прямо сейчас Короче, единственный кто реально помог — наркологическая служба с опытом Приехал через 40 минут В общем, телефон и цены тут — вызов врача нарколога [url=https://kapelnicza.narkologicheskaya-pomoshh-v-kazani16.ru]https://kapelnicza.narkologicheskaya-pomoshh-v-kazani16.ru[/url] Наркологическая помощь — это реальный выход Перешлите тем кто в такой же ситуации

    # agosto 14, 2026
  5. Tosha Tosha

    free online pokies usa, spin casino nz login and how to play online
    who owns the red mile casino (Tosha) united
    states, or best online casino new zealand fast payouts

    # agosto 14, 2026
  6. Rob Rob

    are pokies open in new zealand, free spins sign up casino australia
    and casino listings usa, or canadian poker free
    online game

    Feel free to surf to my blog; vegas roulette strategy (Rob)

    # agosto 14, 2026
  11. Valencia Valencia

    no deposit bingo bonus usa, uk no deposit bigfreechiplist coolcat casino – Valencia,
    bonus 2021 and best united kingdom online casinos real money, or no deposit gambling sites usa

    # agosto 14, 2026
  13. Nelle Nelle

    casino winnings taxable in united kingdom, big poker tournaments uk and
    instant payout casino uk, or real money australian pokies free online power keno games (Nelle)

    # agosto 14, 2026

Deixe um comentário

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