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

14,772 Comments

  1. Сосед по даче — стоматолог. А вот систем — наоборот, прибавилось. ЕГИСЗ — шагу не ступить. Телемедицина врач врач — и каждый медик обязан в этом разбираться. Вся информация доступна здесь: здоровье телемедицина [url=https://canalix.ru]https://canalix.ru[/url] И про федеральный регистр медработников для медсестёр. Иначе придётся догонять в спешке.

  2. Нержавеющая сталь 12Х18Н10Т — востребованный коррозионностойкий сплав в России и СНГ. Добавка титана в составе обеспечивается защита от МКК даже после длительного нагрева.

    Подробная информация: [url=https://stal-12h18n10t.ru/]https://stal-12h18n10t.ru[/url]

    Сплав применяется в нефтепереработке — в конструкциях, работающих при высоких температурах. Зарубежные аналоги: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).

  3. Сталь 12Х18Н10Т — одна из самых популярных марок аустенитной нержавеющей стали в промышленности. Благодаря стабилизации титаном материал устойчив к межкристаллитной коррозии в широком диапазоне температур.

    Характеристики и применение: [url=https://www.stal-12h18n10t.ru/]https://stal-12h18n10t.ru[/url]

    Материал используется в пищевом производстве — для изготовления труб, ёмкостей и теплообменников. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).

  4. Сталь 12Х18Н10Т — одна из самых популярных марок аустенитной нержавеющей стали на территории постсоветского пространства. За счёт содержания титана материал устойчив к межкристаллитной коррозии в широком диапазоне температур.

    Характеристики и применение: [url=http://www.stal-12h18n10t.ru/]https://stal-12h18n10t.ru[/url]

    Сплав применяется в энергетике — для изготовления труб, ёмкостей и теплообменников. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).

  5. Сталь 12Х18Н10Т — одна из самых популярных марок аустенитной нержавеющей стали на территории постсоветского пространства. Благодаря стабилизации титаном сталь не склонна к межкристаллитному разрушению при эксплуатации в агрессивных средах.

    Характеристики и применение: [url=https://stal-12h18n10t.ru/kalkulyator-vesa/]https://stal-12h18n10t.ru/kalkulyator-vesa[/url]

    Сплав применяется в химической промышленности — в конструкциях, работающих при высоких температурах. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).

  6. Нержавеющая сталь 12Х18Н10Т — востребованный коррозионностойкий сплав в России и СНГ. Добавка титана в составе сталь не склонна к межкристаллитному разрушению при эксплуатации в агрессивных средах.

    Состав и свойства: [url=stal-12h18n10t.ru/sostav]https://stal-12h18n10t.ru/sostav[/url]

    Сплав применяется в энергетике — при производстве трубопроводов и резервуаров. Зарубежные аналоги: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).

  7. Марка 12Х18Н10Т — широко используемая нержавеющая сталь в России и СНГ. Благодаря стабилизации титаном обеспечивается защита от МКК даже после длительного нагрева.

    Подробная информация: [url=http://www.stal-12h18n10t.ru/analogi]https://stal-12h18n10t.ru/analogi[/url]

    Материал используется в пищевом производстве — при производстве трубопроводов и резервуаров. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).

  8. Edwarddon Edwarddon

    В этой статье рассматриваются различные аспекты избавления от зависимости, включая физические и психологические методы. Мы обсудим поддержку, мотивацию и стратегии, которые помогут в процессе выздоровления. Читатели узнают, как преодолеть трудности и двигаться к новой жизни без зависимости.
    Это ещё не всё… – [url=https://trezviy-gorod.ru/stati/vliyanie-alkogolya-na-prodolzhitelnost-zhizni.html]вывод из запоя в стационаре в Новочеркасске[/url]

  9. Mt Mt

    Ищу хорошую стоматологию в Томске. Недавно задумался о лечении зубов. Хочу найти зубную клинику с хорошими отзывами. По теме [url=ideal70.ru]стоматолог томск[/url] нашёл несколько вариантов, но не уверен, какой лучше. Кто-то уже лечил зубы в Томске и может порекомендовать клинику? Очень надеюсь на вашу помощь.

  10. Марка 12Х18Н10Т — одна из самых популярных марок аустенитной нержавеющей стали на территории постсоветского пространства. Благодаря стабилизации титаном сталь не склонна к межкристаллитному разрушению даже после длительного нагрева.

    Подробная информация: [url=http://stal-12h18n10t.ru/kalkulyator-vesa/]https://stal-12h18n10t.ru/kalkulyator-vesa[/url]

    Марка востребована в химической промышленности — в конструкциях, работающих при высоких температурах. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).

  11. Марка 12Х18Н10Т — востребованный коррозионностойкий сплав на территории постсоветского пространства. Добавка титана в составе материал устойчив к межкристаллитной коррозии в широком диапазоне температур.

    Подробная информация: [url=https://www.stal-12h18n10t.ru/truba/]https://stal-12h18n10t.ru/truba[/url]

    Сплав применяется в химической промышленности — при производстве трубопроводов и резервуаров. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).

Leave a Reply

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