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
Сосед по даче — стоматолог. А вот систем — наоборот, прибавилось. ЕГИСЗ — шагу не ступить. Телемедицина врач врач — и каждый медик обязан в этом разбираться. Вся информация доступна здесь: здоровье телемедицина [url=https://canalix.ru]https://canalix.ru[/url] И про федеральный регистр медработников для медсестёр. Иначе придётся догонять в спешке.
Нержавеющая сталь 12Х18Н10Т — востребованный коррозионностойкий сплав в России и СНГ. Добавка титана в составе обеспечивается защита от МКК даже после длительного нагрева.
Подробная информация: [url=https://stal-12h18n10t.ru/]https://stal-12h18n10t.ru[/url]
Сплав применяется в нефтепереработке — в конструкциях, работающих при высоких температурах. Зарубежные аналоги: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).
Сталь 12Х18Н10Т — одна из самых популярных марок аустенитной нержавеющей стали в промышленности. Благодаря стабилизации титаном материал устойчив к межкристаллитной коррозии в широком диапазоне температур.
Характеристики и применение: [url=https://www.stal-12h18n10t.ru/]https://stal-12h18n10t.ru[/url]
Материал используется в пищевом производстве — для изготовления труб, ёмкостей и теплообменников. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).
bulk poker chips united states, casinos instant Win games no deposit (http://WWW.Bcdeuitkomst.nl) deposit bonus uk and united
statesn gambling legislation, or minimum dollar 5 deposit casino australia
Сталь 12Х18Н10Т — одна из самых популярных марок аустенитной нержавеющей стали на территории постсоветского пространства. За счёт содержания титана материал устойчив к межкристаллитной коррозии в широком диапазоне температур.
Характеристики и применение: [url=http://www.stal-12h18n10t.ru/]https://stal-12h18n10t.ru[/url]
Сплав применяется в энергетике — для изготовления труб, ёмкостей и теплообменников. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).
Сталь 12Х18Н10Т — одна из самых популярных марок аустенитной нержавеющей стали на территории постсоветского пространства. Благодаря стабилизации титаном сталь не склонна к межкристаллитному разрушению при эксплуатации в агрессивных средах.
Характеристики и применение: [url=https://stal-12h18n10t.ru/kalkulyator-vesa/]https://stal-12h18n10t.ru/kalkulyator-vesa[/url]
Сплав применяется в химической промышленности — в конструкциях, работающих при высоких температурах. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).
pinco ad günü bonusu [url=http://pinco30260.shop]http://pinco30260.shop[/url]
offshore casino bonus
Also visit my blog :: 50 Free spinů za první vklad
online casino ČR bonus bez vkladu
my blog – 30 free spinů za ověření účtu
zahraniční casina bezpečné
Here is my web blog … nejlepší nové casino (DIY.Itp4a.net)
Нержавеющая сталь 12Х18Н10Т — востребованный коррозионностойкий сплав в России и СНГ. Добавка титана в составе сталь не склонна к межкристаллитному разрушению при эксплуатации в агрессивных средах.
Состав и свойства: [url=stal-12h18n10t.ru/sostav]https://stal-12h18n10t.ru/sostav[/url]
Сплав применяется в энергетике — при производстве трубопроводов и резервуаров. Зарубежные аналоги: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).
české online cz casino s bonusem s
licencí
Марка 12Х18Н10Т — широко используемая нержавеющая сталь в России и СНГ. Благодаря стабилизации титаном обеспечивается защита от МКК даже после длительного нагрева.
Подробная информация: [url=http://www.stal-12h18n10t.ru/analogi]https://stal-12h18n10t.ru/analogi[/url]
Материал используется в пищевом производстве — при производстве трубопроводов и резервуаров. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).
cz Nové casino otočky zdarma za registraci
uvítací bonus
В этой статье рассматриваются различные аспекты избавления от зависимости, включая физические и психологические методы. Мы обсудим поддержку, мотивацию и стратегии, которые помогут в процессе выздоровления. Читатели узнают, как преодолеть трудности и двигаться к новой жизни без зависимости.
Это ещё не всё… – [url=https://trezviy-gorod.ru/stati/vliyanie-alkogolya-na-prodolzhitelnost-zhizni.html]вывод из запоя в стационаре в Новочеркасске[/url]
Ищу хорошую стоматологию в Томске. Недавно задумался о лечении зубов. Хочу найти зубную клинику с хорошими отзывами. По теме [url=ideal70.ru]стоматолог томск[/url] нашёл несколько вариантов, но не уверен, какой лучше. Кто-то уже лечил зубы в Томске и может порекомендовать клинику? Очень надеюсь на вашу помощь.
online casino mit 10 euro startguthaben ohne einzahlung top 20 deutschland
beste casinos Welches Casino Kann Man Mit Paysafecard Bezahlen ohne beschränkung
seven casino lucky jet wales [url=sevencasino89735.shop]sevencasino89735.shop[/url]
seriöses online casino sachsen-anhalt casino mit startbonus
Марка 12Х18Н10Т — одна из самых популярных марок аустенитной нержавеющей стали на территории постсоветского пространства. Благодаря стабилизации титаном сталь не склонна к межкристаллитному разрушению даже после длительного нагрева.
Подробная информация: [url=http://stal-12h18n10t.ru/kalkulyator-vesa/]https://stal-12h18n10t.ru/kalkulyator-vesa[/url]
Марка востребована в химической промышленности — в конструкциях, работающих при высоких температурах. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).
Марка 12Х18Н10Т — востребованный коррозионностойкий сплав на территории постсоветского пространства. Добавка титана в составе материал устойчив к межкристаллитной коррозии в широком диапазоне температур.
Подробная информация: [url=https://www.stal-12h18n10t.ru/truba/]https://stal-12h18n10t.ru/truba[/url]
Сплав применяется в химической промышленности — при производстве трубопроводов и резервуаров. Эквиваленты по международным стандартам: AISI 321, EN 1.4541 (Европа), SUS 321 (Япония).