Skip to content

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

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

13,725 Comments

  1. milwausaee wisconsin best casino palm desert (Alberta), slots ironman lausaarote and new zealandn online pokies minimum $5 deposit, or australian open gambling

  2. canadian online bingo games, on line red rock casino entertainment calendar; Marylin,
    canada and bet365 united statesn roulette guide uk, or paying tax on gambling winnings
    australia

  3. RussellWap RussellWap

    В этой медицинской статье мы погрузимся в актуальные вопросы здравоохранения и лечения заболеваний. Читатели узнают о современных подходах, методах диагностики и новых открытий в научных исследованиях. Наша цель — донести важную информацию и повысить уровень осведомленности о здоровье.
    Запросить дополнительные данные – [url=https://boilervdom.ru/zdorove/vyvod-iz-zapoya-v-stacionare-v-reutove.html]Вывод из запоя на дому[/url]

  4. Michaelprale Michaelprale

    Эта публикация обращает внимание на важность профилактики зависимостей. Мы обсудим, как осведомленность и образование могут помочь в предотвращении возникновения зависимости. Читатели смогут ознакомиться с полезными советами и ресурсами, которые способствуют здоровому образу жизни.
    Получить полную информацию – [url=https://notarwise.ru/pages/kruglosutochnaya-narkologicheskaya-pomosch/]мобильная наркологическая помощь казань[/url]

  5. playf_bhea playf_bhea

    Spiele jetzt seit etwa fuenf Monaten bei Play Fortuna angemeldet, genug Zeit also um eine realistische Einschaetzung zu geben. Habe es beim Vergleich von Anbietern gefunden, da die Slotauswahl vielversprechend aussah.

    Das Angebot an Spielen hier geht in die Tausende: Pragmatic, NetEnt und Nolimit City stellen den Grossteil. Gates of Olympus und Sweet Bonanza sind natuerlich dabei, die Nolimit-Titel sind fuer mich das Highlight. Live Casino laeuft ueber Evolution: alle bekannten Tischspiele plus die Showformate. Dealer sprechen Deutsch zu bestimmten Zeiten.

    Der Willkommensbonus bei Play Fortuna bietet eine Verdopplung bis 500 Euro, und Gratisdrehungen die stueckweise freigegeben werden. Wagering liegt bei 40x, was hoch ist aber nicht ungewoehnlich. Aktuelle Codes und Angebote sind nachzulesen auf [url=https://apkarena.com.ng/play-fortuna-so-funktioniert-die-registrierung-schritt-fur-schritt/]play fortuna[/url] vor der Einzahlung pruefen. Reload-Boni gibt es woechentlich.

    Man kann ab 10 Euro starten. Die ueblichen Zahlungsmethoden gehen problemlos, Bitcoin wird ebenfalls angenommen. Skrill-Auszahlungen waren am naechsten Tag da, Auf die Karte waren es drei Werktage. Dokumente wurden schnell geprueft — Personalausweis hochgeladen und in Stunden bestaetigt.

    Am Smartphone laeuft alles im Browser, funktioniert einwandfrei. Kundenservice spricht Deutsch Antworten kommen zuegig. Es gilt eine Curacao-Lizenz, was man wissen sollte. Mein Geld kam bisher immer an.

Leave a Reply

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