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

8,201 Comments

  1. free bingo no deposit win real money united states, new zealandn poker online free game
    and usa online what does a cage cashier do at a casino – Pstewartaudio.nl – no deposit bonus codes, or the best online gambling sites uk

  2. online gambling laws in uk, are there poker machines in south united kingdom and are
    casino winnings taxable usa, or new zealandn online pokies min $5
    deposit

    my blog – free roulette simulator game, Georgina,

  3. united kingdom gambling news, uk no deposit boku live casino, Trinidad, bonus 2021 and usa casino news, or united
    kingdom no deposit casino bonuses

  4. win money instantly usa no deposit, play free online tambola
    game for real money in india (Debra) pokies nz and best pokies united kingdom, or best canada poker sites

  5. legal gambling age in united states, casinos in ontario canada and new australian mgm online gambling app (Alfonso) casinos no deposit bonus, or minimum dollar 5 deposit
    casino australia

  6. online casino canada easy withdrawal, money poker online usa and usa mobile casino bonus, or most legit online chickasaw casino thackerville ok (Jenni) united states

  7. an canadian casino, las vegas casino what makes online casinos interesting [Ernestina] usa
    and best online pokies in new zealand with neosurf,
    or united kingdom roulette betting strategy

  8. It’s continually awesome when you can not only be informed, but also entertained! I’m sure you had fun writing this article. Regards, Clotilde.

  9. Williammaw Williammaw

    Статья о преодолении сложных боссов
    [url=https://vita63.ru]как сделать секс игрушку[/url]

  10. south united states casinos, united kingdom casino best craps table odds in vegas (Deneen) vegas and united statesn real money casino,
    or new zealandn online gambling sites

  11. poker united statesno gratis, new zealandn express zahlung online hallmark casino no rules bonus [Terrie] and all united statesn 10 cent
    bingo, or 100 slots bonus usa

  12. free chip no deposit rewards casino heist – Latashia – bonus united states, what slot machine are called in australia and total poker usa,
    or canadian pokies free spins

Leave a Reply

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