Skip to content

Verify if a process is executing and notificate via e-mail on Windows

Published by Matheus (X-warrior) Bratfisch on April 16, 2012

Hello,

A few days ago my friend need a Visual Basic Script to verify if a process is running and if it is send an e-mail. He asked me for help to code it, and I helped him.

Visual Basic Script to verify if a process is running and notify via e-mail.

Verify if a process is running with Visual Basic Script and shows a window if it is.
[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]

Send an e-mail using Visual Basic Script
[code lang=”vb”]
Const username = “USERNAME”
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]

This two scripts are changed to work together to do what we want and have a config section.

Best Regards,
Matheus

References:
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

Published inwindows

9,158 Comments

  1. Narkolog na dom_eskr Narkolog na dom_eskr

    Люди подскажите Отец не выходит из штопора Соседи стучат в стену В больницу тащить страшно Короче, врач приехал и поставил систему — нарколог на дом круглосуточно без выходных Дал рекомендации и успокоил семью В общем, телефон и цены тут — номер нарколога на дом [url=https://alkogolizm.narkolog-na-dom-sankt-peterburg14.ru]https://alkogolizm.narkolog-na-dom-sankt-peterburg14.ru[/url] Нарколог на дом — это реальный выход Перешлите тем кто в такой же ситуации

    # August 12, 2026
  2. sewa bus pariwisata di jakarta sewa bus pariwisata di jakarta

    I don’t know if it’s just me or if perhaps everybody
    else encountering problems with your website. It seems
    like some of the text in your content are running off the screen. Can someone else please provide feedback and let me know if this is happening to them too?
    This could be a problem with my web browser because I’ve had this happen previously.

    Cheers

    # August 12, 2026
  3. Narkolog na dom_xkkr Narkolog na dom_xkkr

    Слушайте кто знает Муж просто потерял себя Родственники не знают что делать В больницу тащить страшно Короче, врач приехал и поставил систему — нарколог на дом срочно Приехал через 40 минут В общем, не потеряйте контакты — доктор нарколог на дом [url=https://alkogolizm.narkolog-na-dom-sankt-peterburg14.ru]https://alkogolizm.narkolog-na-dom-sankt-peterburg14.ru[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации

    # August 12, 2026
  6. Narkolog na dom_swkr Narkolog na dom_swkr

    Питер, всем привет Близкий человек уже несколько дней в запое Соседи стучат в стену Таблетки не помогают Короче, только это реально спасло — наркологическая помощь на дому круглосуточно качественно Дал рекомендации и успокоил семью В общем, жмите чтобы сохранить — нарколог лечение на дому [url=https://alkogolizm.narkolog-na-dom-sankt-peterburg14.ru]https://alkogolizm.narkolog-na-dom-sankt-peterburg14.ru[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации

    # August 12, 2026
  7. Narkolog na dom_ldkr Narkolog na dom_ldkr

    Слушайте кто знает Ситуация критическая Родственники не знают что делать В больницу тащить страшно Короче, врач приехал и поставил систему — платный нарколог на дом с выездом Осмотрел и поставил капельницу В общем, жмите чтобы сохранить — выезд на дом нарколога запой [url=https://alkogolizm.narkolog-na-dom-sankt-peterburg14.ru]https://alkogolizm.narkolog-na-dom-sankt-peterburg14.ru[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации

    # August 12, 2026
  8. 888starz_nbPa 888starz_nbPa

    Qale forumdoshlar, men bu yerda taxminan olti oydan beri stavka qilaman, shuning uchun tajribamni bo’lishmoqchiman. Ochig’i, boshida shubha bilan qaragandim — bizda bunaqa saytlar ko’p, ko’pchiligi pul to’lamaydi. Lekin 888starz menda hozircha umuman aldamadi.

    Slotlar haqida gapiradigan bo’lsam, tanlov haqiqatan katta — nazarimda 6000ga yaqin oshadi, hech kim sanab chiqmagan bo’lsa kerak. Ko’proq Pragmatic Play o’yinlarini tepaman: Gates of Olympus va Sweet Bonanza eskirmaydi, gohida Play’n GO ning Book of Dead ga o’tib turaman. NetEnt va Yggdrasil dan ham yetarlicha bor, lekin ularni kamroq ochaman. Live qismi alohida gap — Evolution dan, tirik dilerlar, Crazy Time bo’lsa kechqurun dam olishga zo’r.

    Xush kelibsiz bonusi tomoni ham yomon emas: birinchi depozitga 100% qo’shimcha va yana 200 frispin beriladi. Faqat shartga qarab qo’ying — odatda x35 atrofida, demak darrov yechib bo’lmaydi, sabr kerak. O’zim avvaliga shartlarni to’liq ko’rmay olib yubordim va biroz kuyib qoldim. Joriy aksiyalarni [url=https://888starz-apk9.com]888starz скачать на айфон[/url] orqali tekshirib olishingiz mumkin, pul tashlashdan avval shuni maslahat beraman.

    To’lovlar bo’yicha: Visa va Mastercard bemalol o’tadi, Skrill bilan Neteller ham qo’shilgan, Bitcoin ham qabul qilinadi — o’zim asosan USDT dan foydalanib turaman, sababi kutish kam. Minimal depozit kichkina, deyarli 10 000 so’m chamasi desa ham bo’ladi. O’tgan hafta chiqarib oldim — hamyonga bir soatga qolmay tushdi, karta bilan bo’lsa bir kunga yaqin kutishga to’g’ri keldi.

    Telefon versiyasi to’g’risida ikki og’iz: saytdan ilovani yuklab olsa bo’ladi, Android da bemalol ishlaydi, iPhone uchun ham variant bor, lekin biroz chalkashroq. Mobil brauzerda ham yaxshi ishlaydi, dastur bo’lsa tezroq tuyuldi. Menga bezor qilgan narsa — hujjat tekshiruvi biroz cho’zildi, ikki kun kutdim, support xizmati rus tilida yaxshi javob beradi, o’zbek tilida gohida sekinroq. Litsenziya Curacao dan, demak xalqaro standart — kimdir buni yoqtirmaydi, menga shu ham yetarli, chunki to’lovda kamchilik ko’rmadim.

    # August 12, 2026

Leave a Reply

Your email address will not be published. Required fields are marked *