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

  13. Barney Barney

    the great united statesn casino everett, canadian gambling statistics 2021 and
    craps betting usa, or free online pokies no download united kingdom

    Also visit my web-site – game apps where you make money
    (Barney)

    # julho 15, 2026
  15. Arianne Arianne

    legal gambling age in united states, united statesn online casino win real money and gambling issues in australia, or no deposit bonus casino microgaming australia

    Look into my homepage … blackjack return cards (Arianne)

    # julho 15, 2026
  19. 888starz apk_qqon 888starz apk_qqon

    يمنح 888starz apk إمكانية التثبيت المباشر على الجهاز بعيدًا عن المتاجر الرسمية.

    يستقر ملف 888starz apk في مجلد التحميلات جاهزًا لخطوة التثبيت.

    يتم تأكيد الأذونات المطلوبة ثم يبدأ التثبيت من دون تدخل إضافي.

    توفر نسخة أندرويد إدارة كاملة للرصيد من دون الحاجة للموقع الرسمي.

    يحافظ تحديث التطبيق بانتظام على استقراره وحمايته من الثغرات.

    يستفيد لاعبو مصر من الأكواد الترويجية والمكافآت مباشرة من التطبيق.

    تنزيل تطبيق 888 [url=https://trurofoodfestival.com/rabit-amn-888starz-apk-android-tahdithat/]تنزيل تطبيق 888[/url]

    # julho 15, 2026
  23. 888starz apk_bmon 888starz apk_bmon

    تم تعريب التطبيق بالكامل ليكون مريحًا لمستخدمي الهواتف في مصر.

    يحصل المستخدم في مصر على ملف apk عبر رابط التحميل المخصص لأجهزة أندرويد.

    بعد اكتمال التثبيت تظهر أيقونة 888starz مباشرة بين تطبيقات الهاتف.

    يمكن من خلال التطبيق متابعة المباريات المباشرة ووضع الرهانات لحظة بلحظة.

    يُفضّل تنزيل 888starz apk من المصدر الرسمي فقط لتجنب النسخ المعدّلة.

    يمكن التواصل مع خدمة العملاء مباشرة من التطبيق عبر الدردشة الحية.

    888starz apk [url=https://trurofoodfestival.com/rabit-amn-888starz-apk-android-tahdithat/]888starz apk[/url]

    # julho 15, 2026
  49. true_xcEi true_xcEi

    The official True Fortune website brings hundreds of games together on a single, easy-to-use platform.

    The game library includes thousands of titles, from classic fruit machines to modern video slots.

    Frequent players climb a VIP ladder that unlocks better rewards and faster withdrawals.

    True Fortune supports popular payment methods including Visa, Mastercard and e-wallets like Skrill and Neteller.

    Fair play is guaranteed by independently tested RNG games with published RTP rates.

    Players can enjoy the full game library on mobile without installing an app.

    100 bonus code for true fortune casino [url=https://www.true-fortune-casino31.com/bonus]100 bonus code for true fortune casino[/url]

    # julho 16, 2026

Deixe um comentário

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