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

7.770 Comentários

  2. 888starz_siOa 888starz_siOa

    تتوفر المنصة بعشرات اللغات مع تصميم عربي بسيط يناسب المستخدم المصري.
    يتيح الموقع أكثر من مئتين وخمسين طاولة مباشرة للروليت والبلاك جاك والبكارات.
    888starz [url=https://888starzs9.com]888 starz[/url]
    يشمل الموقع أكثر من 35 فئة رياضية تغطي أبرز الأحداث حول العالم.
    ينال لاعبو الرهان الرياضي بونص 100% بحد أقصى 100 يورو.
    يعمل فريق المساعدة طوال اليوم، ويتوفر تطبيق محمول لأجهزة أندرويد وآبل.

    # julho 8, 2026
  4. 888starz_tvEl 888starz_tvEl

    888 stars [url=http://www.888starzs4.com/]888 stars[/url]
    يتيح 888starz للمستخدم المصري الوصول إلى آلاف الألعاب وعشرات الرياضات من حساب واحد.

    تتضمن مجموعة 888Games الحصرية ألعابًا فورية مثل Crash و Plinko و Dice.

    تتغير الاحتمالات في الوقت الفعلي مع خيار المراهنة أثناء اللعب.

    ويحصل المراهن الرياضي على مكافأة 100% حتى 100 يورو عند أول إيداع.

    يقدم 888starz تسجيلًا سريعًا بخطوات بسيطة وحد إيداع منخفض.

    # julho 8, 2026
  5. 888starz_emOa 888starz_emOa

    888starz.bet وجهة رسمية واحدة تجمع الكازينو والرهان الرياضي أمام اللاعبين في مصر.
    يحتوي قسم الكازينو على آلاف ألعاب السلوت من استوديوهات رائدة.
    starz 888 [url=888starzs9.com]888stars[/url]
    يشمل الموقع أكثر من 35 فئة رياضية تغطي أبرز الأحداث حول العالم.
    كما تتوالى العروض الدورية من كاش باك ورهانات مجانية وبطولات.
    يتم إنشاء الحساب عبر الهاتف أو البريد خلال دقائق قليلة.

    # julho 8, 2026
  9. 888starz_zskn 888starz_zskn

    يقدم الموقع تصميمًا عربيًا واضحًا وقائمة تدعم أكثر من خمسين لغة.

    تضم غرف اللعب المباشر ما يزيد عن 250 طاولة يديرها موزعون فعليون.

    يشمل الرهان الرياضي أكثر من 35 نوعًا يمتد من كرة القدم والتنس إلى الهوكي و UFC.

    يحصل المستخدم الجديد في الكازينو على ما يصل إلى 1500 يورو و150 فري سبين.

    يقبل الموقع البطاقات والمحافظ الإلكترونية إضافة إلى أكثر من 50 عملة مشفرة مثل BTC و USDT.

    888 stars [url=https://888starzs3.com]888 stars[/url]

    # julho 8, 2026
  12. 성인사이트 성인사이트

    Have you ever thought about including a little bit more than just your articles?
    I mean, what you say is important and everything.
    Nevertheless think of if you added some great pictures or video
    clips to give your posts more, “pop”! Your content is excellent but with pics and video clips, this site could
    certainly be one of the very best in its niche. Excellent blog!

    # julho 8, 2026
  15. 888bccocom 888bccocom

    If most people wrote about this subject with the eloquence that you just did, I’m sure people would do much more than just read, they act. Great stuff here. Please keep it up.

    # julho 9, 2026
  47. 888starz_jxOa 888starz_jxOa

    Rasmiy sayt tushunarli o’zbek tili va ravon navigatsiya bilan yangi foydalanuvchiga ham mos.
    888starz casino login [url=http://www.888starz-uzb9.com]888starz casino login[/url]
    Eksklyuziv 888Games to’plami Crash, Plinko, Dice va Lottery kabi tezkor formatlarni jamlaydi.
    Jonli rejimdagi tikishda koeffitsiyentlar o’yin borishiga qarab yangilanib turadi.
    Sportga tikuvchilar uchun alohida 100% bonus 100€ gacha ochiladi.
    Ro’yxatdan o’tish oddiy va tez — bir nechta qadamda yakunlanadi.

    # julho 9, 2026
  49. FrankNOR FrankNOR

    Банкротство застройщика не означает потерю права на квартиру или вложенных средств. Переходите по запросу [url=https://centrbg.ru/services/bankrotstvo-yuridicheskikh-lits/bankrotstvo-zastroyshchika/]адвокат по банкротству застройщика[/url]. Юрист поможет включить требования в реестр кредиторов, защитить интересы дольщика, оспорить незаконные действия и добиться получения жилья или компенсации. Сопровождаем процедуру на всех этапах, готовим необходимые документы и представляем интересы клиента в суде. Консультация поможет определить оптимальную стратегию защиты именно в вашей ситуации.

    # julho 9, 2026

Deixe um comentário

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